Gambas ONE

try this : If Dialog.SelectDirectory() Then Return Print Dialog.Path Print File.Dir(Dialog.Path) Print File.Dir(File.Dir(Dialog.Path)) Print File.Dir(File.Dir(File.Dir(Dialog.Path))) will produce this: /home/mhc/Documents/workinggambas/printchecks /home/mhc/Documents/workinggambas /home/mhc/Document...

I would like to read and set Margins both left and right as well as top and bottom This will not work for be , how can I make it work ? comp • gb.form.print • printer • marginleft Printer.MarginLeft (gb.form.print) Property MarginLeft As Integer Return or set the default left margin in millimeters.

give this a try , it should print three pages : Public Sub PrintButton_Click() If Printer2.Configure() Then Return Printer2.Count = 3 Me.Enabled = False Inc Application.Busy Printer2.Print Dec Application.Busy Me.Enabled = True End Public Sub Printer2_Draw() Paint.DrawRichText("hello", 300, 300) Pai...

Hi Quin, Sorry it didn't work for you. I downloaded it and it seems OK, however here it is again in a different format and the code as well. Public Sub ScrollArea1_Draw() Draw.Picture(Picture.Load(Application.Path &/ "test.png"), 150, 150, 300, 300) End this is the kind of help I like .... short an...

stevedee:
Thanks for the listing you put up... Got it working with :

Printer1.Count = inumofpages

That works kinda like a For Next loop

and in my case I don't need paint.fill

@Gerard :
Your book is helping me (a new gambas user) VERY much, Thanks for the work

I still have not found a "new page" command ... but have rewritten the routine to accomplish the same results

It would be nice to learn how to implement a page brake.

In the meantime I have a lot to learn about Gambas.

jornmo wrote: ↑

Monday 30th December 2019 8:58am

Try by using gb.pdf

I am not smart enough to know how to implement that

could you give an example ?

I have tried :
Paint.DrawRichText(Chr$(12))
did not work

also tried :
Paint.DrawRichText(gb.pdf)
gave an error of unknown .... pdf

I need a Page feed or new page at the comment below ... at line 37 ' Gambas class file Static Public iCkNumber As Integer Static Public ibankroute As String Static Public iaccountNumber As String Static Public iStartCkNum As Integer = 25000 Public Sub Form_Open() End Public Sub Prn1_Draw() Dim ix, i...

from looking at the program it appears that I should put the entire print out that I want into one string and send it to the print sub .... if so how do I force a Page Break ? Or do I just put one page in at a time ? Is there a text book or tutorial that covers printing to the printer ? I have been ...