Kod koji koristim je (kod je skraćen tako da bi i vi mogli da probate bez muke)
Code:
Public Sub Print()
Dim s As New PrintDialog
s.ShowDialog()
Dim d As New PrintPreviewDialog
Dim doc As New Printing.PrintDocument
doc.PrinterSettings = s.PrinterSettings
d.Document = doc
AddHandler doc.PrintPage, AddressOf _PrintPage
d.ShowDialog()
End Sub
Private Sub _PrintPage(ByVal sender As Object, ByVal e As Drawing.Printing.PrintPageEventArgs)
e.Graphic.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.Black)), New Rectangle(0,0,100,100))
End Sub
Public Sub Print()
Dim s As New PrintDialog
s.ShowDialog()
Dim d As New PrintPreviewDialog
Dim doc As New Printing.PrintDocument
doc.PrinterSettings = s.PrinterSettings
d.Document = doc
AddHandler doc.PrintPage, AddressOf _PrintPage
d.ShowDialog()
End Sub
Private Sub _PrintPage(ByVal sender As Object, ByVal e As Drawing.Printing.PrintPageEventArgs)
e.Graphic.FillRectangle(New SolidBrush(Color.FromArgb(50, Color.Black)), New Rectangle(0,0,100,100))
End Sub
Preview lepo prikaže površinu, ali pri štampi dobijam ... (vidi sliku). Ima li rešenja za ovaj problem?
Inače, ako je bitno, probao sam da štampam na HP4100 i HP4200 (isti rezultati)

[Ovu poruku je menjao vujkev dana 09.11.2007. u 08:39 GMT+1]
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu