my fault ... i've done it without gambas ... i'll try to send you an example
2011/6/25 M. Cs. :
> Public Sub _new()
> Dim hPrinter As Printer
> hPrinter = New Printer
>
> If Not hPrinter.Configure() Then
> 'you must to define the numbers of pages before
> hPrinter.Count = 1
> 'Launch the pr
Public Sub _new()
Dim hPrinter As Printer
hPrinter = New Printer
If Not hPrinter.Configure() Then
'you must to define the numbers of pages before
hPrinter.Count = 1
'Launch the printing
hPrinter.Print
Endif
End
Public Sub Form_Open()
End
Public Sub hPrinter_Draw()
Paint.Font
If Not Printer.Configure() Then
Another error Printer.Configure not static
2011/6/25, M. Cs. :
> It won't work...
> In your original script
> At line hPrinter = new Printer(me) as "Printer" it raises error too
> many parameters
>
>
> ...why should people change a synthax wich worked in G2...
>
>
It won't work...
In your original script
At line hPrinter = new Printer(me) as "Printer" it raises error too
many parameters
...why should people change a synthax wich worked in G2...
2011/6/25, M. Cs. :
> Well, I tried the example you gave me, but it is full of errors!
>
> I've modified like th
Well, I tried the example you gave me, but it is full of errors!
I've modified like this:
PUBLIC hPrinter as Printer
Public sub _New()
hPrinter = new Printer
if not hPrinter.configure() then
'you must to define the numbers of pages before
hPrinter.count = 1
'Launch the printing
Thanks!
Csaba
2011/6/25, Fabien Bodard :
> Dim hPrinter as Printer
>
>
> Public sub _New()
>
> hPrinter = new Printer(me) as "Printer"
>
> if not Printer.configure() then
>'you must to define the numbers of pages before
>printer.count = 1
>'Launch the printing
>printer.print
>
Dim hPrinter as Printer
Public sub _New()
hPrinter = new Printer(me) as "Printer"
if not Printer.configure() then
'you must to define the numbers of pages before
printer.count = 1
'Launch the printing
printer.print
endif
end
Public sub Printer_Draw()
Paint.Font.Size=12
Hi,
I know how to print text in G2, but I'd need a simple transcription
for the following G2 code to G3:
PUBLIC SUB ExecutePrint(mytext)
IF Printer.Setup() THEN RETURN
Printer.Resolution = 300
Draw.Begin(Printer)
Draw.Font.Size = 12
Draw.Text(mytext, 564, 457)
Draw.End
END
The examples prepared
