[Gambas-user] Printing colors in PDF

[Gianluigi]

This code work to me.

Public Sub Button1_Click()

  With Printer1
    'If you insert configure you can see the printer configuration :-)
    '.Configure
    .Orientation = 0
    .Paper = 2
    .Resolution = Desktop.Resolution
    ' Output in tmp folder
    .OutputFile = "/tmp/print_test.pdf"
    .Print
  End With

End

Public Sub Printer1_Draw()

  Paint.FillRect(20, 30, 700, 1000, Color.Red)

End

Regards
Gianluigi

2018-07-14 21:53 GMT+02:00 Rolf-Werner Eilert <rwe-sse at osnanet.de>:

> Currently I try to make up a simple printing into PDF for a program. It
> would be fine if I could print colored squares, but from a first trial I
> only got grays:
>
> Paint.FillRect(randLinks, randOben, 1000, 1000, Color.Red)
>
> Any hint what might go wrong? This is on my laptop, and the only printer
> driver installed is for a grayscale laser printer, but printing into a file
> (PDF) shouldn't be affected by this, should it?
>
> Thanks for your ideas!
>
> Rolf
>
>
>
> ----[ Gambas mailing-list is hosted by https://www.hostsharing.net ]----
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20180714/4516da4d/attachment.html>