[Gambas-user] About Printer

[Demosthenes Koptsis]

These days i am learning Printer class and i have some questions about
it.

For the beginning i print a blank page and some status messages in a
textarea.

the code is this
-----------------
Public Sub btnPrint_Click()

  If prtPrinter.Configure() Then Return

  Me.Enabled = False
  Inc Application.Busy
  prtPrinter.Print
  Dec Application.Busy
  Me.Enabled = True

End

Public Sub prtPrinter_Begin()
  
  prtPrinter.Count = 1
  txtArea.Text &= "Set number of pages to 1\n"
  txtArea.Text &= "Begin printing\n"
  
End

Public Sub prtPrinter_Paginate()
  
  txtArea.Text &= "Begin paginate\n"  
  
End

Public Sub prtPrinter_Draw()


  txtArea.Text &= "Begin Draw\n"
  
End

Public Sub prtPrinter_End()
  
  txtArea.Text &= "End printing\n"  
  
End
--------------

The question is why the prtPrinter_End event is not gining the status
message?

In TextArea i get only

Set number of pages to 1
Begin printing
Begin paginate
Begin Draw
 


-- 
Regards,
Demosthenes Koptsis.