[Gambas-user] R: Can't print in Gambas 3

[Ru Vuott]

> Error is gone, but still got a empty
> page.

Uhmm.... strange....

Try:

Public Sub Button1_Click()
      If mijnprinter.Configure() = True Then Return
      mijnprinter.FirstPage = 0
      mijnprinter.Orientation = 1
      mijnprinter.Paper = 2
      mijnprinter.Print
End

Public Sub mijnprinter_Draw()

    With Paint
      .DrawText("Imprimatur", 500, 1000, 400, 500)
      .RichText(String.Chr(&1D11E), 600, 2000, 200, 200)
      .Fill
      .End
    End With

End

''''''
If you want to create a PDF file:

Public Sub Button1_Click()
      If mijnprinter.Configure() = True Then Return
      mijnprinter.FirstPage = 0
      mijnprinter.Orientation = 1
      mijnprinter.Paper = 2
      mijnprinter.OutputFile = "/tmp/imprimatur.pdf"
      mijnprinter.Print
End

Public Sub mijnprinter_Draw()

    With Paint
      .DrawText("Imprimatur", 500, 1000, 400, 500)
      .RichText(String.Chr(&1D11E), 600, 2000, 200, 200)
      .Fill
      .End
    End With

End