izmenjeno 1 put, poslednji put vujkev 09.11.2007. u 08:39
Izmene poruke
- vujkev09.11.2007. u 08:39zapis iz teksta poruke
Treba da odštampam neku polutransparentu površinu, ali na papiru dobijem tačkice, a ne lep gradijent.
Kod koji koristim je (kod je skraćen tako da bi i vi mogli da probate bez muke)
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)
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)
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
