[Gambas-user] I need simple example

[Fabien Bodard]

my fault ... i've done it without gambas ... i'll try to send you an example

2011/6/25 M. Cs. <mohareve at ...626...>:
> 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
>>>>>>
>>>>>
>>>>
>>>
>>
>
> ------------------------------------------------------------------------------
> 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