long generating report

[jefer]

I'm using PrintPreviewDialog 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 PrintPreviewDialog 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 PrintPreviewDialog1 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 PrintPreviewDialog1 properties -document set to PrintDocument1

ok what i dont like about your code is the dim g as graphics
instead use the with property

  Dim message As String = System.Environment.UserName
        Dim messageFont As New Font("Arial", 24,System.Drawing.GraphicsUnit.Point)
with e.graphics
       .DrawString(message, messageFont, Brushes.Black, 100, 100)
    End Sub
End with