GAMBAS BOOK 3.19.5

The class allows you to output documents directly to printers or to print and save the documents in a file (PDF or PostScript).

The class can be created. To create a new Printer object:

Dim hPrinter As Printer
hPrinter = New Printer() [ As "EventName" ]

The Printer class has these constants:

Table 23.6.1.0.1 : Constants of the Printer class (gb.qt4)

The Printer class has these properties:

Table 23.6.1.0.2 : Properties of the Printer (gb.qt4) class

The Printer class (gb.qt4/5) also has these two static properties:

• List: Returns the list of printers in the system.
• Default: Returns the name of the default printer.

Example

  If Printer.List.Count = 0 Then
     sMessage = "<b><font size='+1', color='DarkRed'>"
     sMessage &= ("P R I N T - M O D U S")
     sMessage &= "</b></font><hr>"
     sMessage &= "->> " & ("No installed printer was detected.") & "<br>"
     sMessage &= "->> " & ("The program will be ended!")
     Message.Error(sMessage)
     Quit
  Else
     Print "Standard-Printer = "; Printer.Default
  Endif

This allows you to read out some of the default values or the defined properties of the printer:

  Print "DruckerName = "; hPrinter.Name
  Print "CollateCopies = "; hPrinter.CollateCopies
  Select Case hPrinter.Duplex
    Case 0
      Print "Duplex = 0: Single sided (simplex) printing only."
    Case 1
      Print "Duplex = 1: Both sides of each sheet of paper are used for printing. The paper is turned over its horizontal edge."
    Case Else
      Print "Duplex = 2: Both sides of each sheet of paper are used for printing. The paper is turned over its vertical edge."
  End Select
  Print "FullPage = "; hPrinter.FullPage
  Print "GrayScale = "; hPrinter.GrayScale
  Print "NumCopies = "; hPrinter.NumCopies
  If hPrinter.Orientation = 0 Then
     Print "Orientation = "; "Portrait"
  Else
     Print "Orientation = "; "Landscape"
  Endif
  If hPrinter.OutputFile <> Null Then
     Print "OutputFile = "; hPrinter.OutputFile
  Else
     Print "OutputFile = NULL (Printout on the installed printer)"
  Endif
  Print "Paper (2=DINA4)  = "; hPrinter.Paper
  Print "PaperHeight (mm) = "; hPrinter.PaperHeight
  Print "PaperWidth (mm)  = "; hPrinter.PaperWidth
  Print "Resolution (DPI) = "; hPrinter.Resolution
  Print "ReverseOrder     = "; hPrinter.ReverseOrder

This is the output in the console of the IDE:

DruckerName =  FS-1030D
CollateCopies =  True
Duplex = 1: Both sides of each sheet of paper are used for printing.
            The paper is turned over its horizontal edge.
FullPage  =  True
GrayScale =  True
NumCopies =  1
Orientation =  Portrait
OutputFile = NULL (Printout on the installed printer)
Paper (2=DINA4)  =  2
PaperHeight (mm) =  297
PaperWidth (mm)  =  210
Resolution (DPI) =  300
ReverseOrder     =  False

The Printer class has these methods:

Table 23.6.1.0.3 : Methods of the Printer class (gb.qt4)

The Printer class has these events:

Table 23.6.1.0.4 : Events of the Printer class (gb.qt4/5)