long generating report

[jefer]

I'm using PrintPreviewDia log in vb2005 and it takes 1min to generate report with a single word.. is it vb bug or what? is there anything to make thing faster?

[ot1]

Shouldn't you have posted this in the .net Forum???

I'm using PrintPreviewDia log in vb2005 and it takes 1min to generate report with a single word.. is it vb bug or what? is there anything to make thing faster?

[daniel aristidou]

Shouldn't you have posted this in the .net Forum???

No its ok here......
in should not be taking so long..... would you mind posting your code

[jefer]

Public Class Form1
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim g As Graphics = e.Graphics
        Dim message As String = System.Environment.UserName
        Dim messageFont As New Font("Arial", 24,System.Drawing.GraphicsUnit.Point)
        g.DrawString(message, messageFont, Brushes.Black, 100, 100)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub
End Class

and in PrintPreviewDia log1 properties -document set to PrintDocument1

[debasisdas]

That also might be because of your system configuration.

[jefer]

none of other programs have problems with that..
printing operation also takes one minute

[daniel aristidou]

Public Class Form1
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim g As Graphics = e.Graphics
        Dim message As String = System.Environment.UserName
        Dim messageFont As New Font("Arial", 24,System.Drawing.GraphicsUnit.Point)
        g.DrawString(message, messageFont, Brushes.Black, 100, 100)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PrintPreviewDialog1.ShowDialog()
    End Sub
End Class

and in PrintPreviewDia log1 properties -document set to PrintDocument1

ok what i dont like about your code is the dim g as graphics
instead use the with property
[CODE=vb] Dim message As String = System.Environm ent.UserName
Dim messageFont As New Font("Arial", 24,System.Drawi ng.GraphicsUnit .Point)
with e.graphics
.DrawString(mes sage, messageFont, Brushes.Black, 100, 100)
End Sub
End with
[/CODE]