<div dir="ltr"><div>This code work to me.</div><div><br></div><div>Public Sub Button1_Click()<br><br>  With Printer1<br>    'If you insert configure you can see the printer configuration :-)<br>    '.Configure<br>    .Orientation = 0<br>    .Paper = 2<br>    .Resolution = Desktop.Resolution</div><div>    ' Output in tmp folder</div><div>     .OutputFile = "/tmp/print_test.pdf"<br>    .Print<br>  End With<br><br>End<br><br>Public Sub Printer1_Draw()<br>  <br>  Paint.FillRect(20, 30, 700, 1000, Color.Red)<br>  <br>End</div><div><br></div><div>Regards</div><div>Gianluigi<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">2018-07-14 21:53 GMT+02:00 Rolf-Werner Eilert <span dir="ltr"><<a href="mailto:rwe-sse@osnanet.de" target="_blank">rwe-sse@osnanet.de</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">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:<br>
<br>
Paint.FillRect(randLinks, randOben, 1000, 1000, Color.Red)<br>
<br>
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?<br>
<br>
Thanks for your ideas!<br>
<br>
Rolf<br>
<br>
<br>
<br>
----[ Gambas mailing-list is hosted by <a href="https://www.hostsharing.net" rel="noreferrer" target="_blank">https://www.hostsharing.net</a> ]----<br>
</blockquote></div><br></div>