[Gambas-user] I need simple example

[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 printing
  hPrinter.Print
  Endif
End

Public Sub Form_Open()

End



Public Sub hPrinter_Draw()

  Paint.Font.Size = 12
  Paint.Text("Nothing", 564, 457)
  'fill the vectorialpath
  Paint.Fill

 End

It prints empty pages only!!!

2011/6/25, M. Cs. <mohareve at ...626...>:
> If Not Printer.Configure() Then
>
> Another error Printer.Configure not static
>
> 2011/6/25, M. Cs. <mohareve at ...626...>:
>> 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. <mohareve at ...626...>:
>>> 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
>>>    hPrinter.Print
>>>   endif
>>>
>>>  end
>>>
>>>
>>>  Public sub hPrinter_Draw()
>>>
>>>   Paint.Font.Size=12
>>>   Paint.Text(myText,564,457)
>>>   'fill the vectorialpath
>>>   Paint.Fill
>>>
>>>  end
>>>
>>> But it prints empty pages only!
>>> Any correction?
>>>
>>> 2011/6/25, M. Cs. <mohareve at ...626...>:
>>>> Thanks!
>>>>
>>>> Csaba
>>>>
>>>> 2011/6/25, Fabien Bodard <gambas.fr at ...626...>:
>>>>> 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
>>>>>   Paint.Text(myText,564,457)
>>>>>   'fill the vectorialpath
>>>>>   Paint.Fill
>>>>>
>>>>> end
>>>>>
>>>>>
>>>>>
>>>>>
>>>>> 2011/6/25 M. Cs. <mohareve at ...626...>:
>>>>>> 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 for the GUI are much too complicated (were also
>>>>>> in
>>>>>> G2).
>>>>>> "Simplicity!" (Hannibal Lecter)
>>>>>>
>>>>>> Thanks!
>>>>>>
>>>>>> ------------------------------------------------------------------------------
>>>>>> All the data continuously generated in your IT infrastructure
>>>>>> contains
>>>>>> a
>>>>>> definitive record of customers, application performance, security
>>>>>> threats, fraudulent activity and more. Splunk takes this data and
>>>>>> makes
>>>>>> sense of it. Business sense. IT sense. Common sense..
>>>>>> http://p.sf.net/sfu/splunk-d2d-c1
>>>>>> _______________________________________________
>>>>>> Gambas-user mailing list
>>>>>> Gambas-user at lists.sourceforge.net
>>>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Fabien Bodard
>>>>>
>>>>> ------------------------------------------------------------------------------
>>>>> All the data continuously generated in your IT infrastructure contains
>>>>> a
>>>>> definitive record of customers, application performance, security
>>>>> threats, fraudulent activity and more. Splunk takes this data and
>>>>> makes
>>>>> sense of it. Business sense. IT sense. Common sense..
>>>>> http://p.sf.net/sfu/splunk-d2d-c1
>>>>> _______________________________________________
>>>>> Gambas-user mailing list
>>>>> Gambas-user at lists.sourceforge.net
>>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user
>>>>>
>>>>
>>>
>>
>