PrintDocument i semitransparent FillRectangle

[ vujkev @ 09.11.2007. 06:46 ] @

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)

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

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]}

[ dusans @ 09.11.2007. 11:33 ] @

To se dešava zbog dithering-a koji se koristi prilikom štampe.
U principu tvoj kod je sasvim OK, medjutim pošto štampač ne može da reprodukuje baš takvu sivu nijansu on to nadomesti dihtering-om odnosno ovim crnim tačkicama pa gledano iz daljine čini se da je to u stvari neka svetlo siva.
Probaj da namestiš Quality i DPI podešavanja tvog štampača na maksimum, onda možda dobiješ malo bolji rezultat ali mislim da su tačkice ipak neminovne.

Pozdrav!

[ vujkev @ 09.11.2007. 11:59 ] @

Malo mi je čudno da štampač iz mog programa ne možda da odštampa tu nijansu sive, a iz Word-a sasvim lepo odštampa 10% black.

_{[Ovu poruku je menjao vujkev dana 09.11.2007. u 13:09 GMT+1]}