Referência de Objetos ou componentes

Application
ClipBoard
Printer
QBitMap
QButton
QCanvas
QCheckBox
QComboBox
QComPort
QCoolBtn
QDirTree
QEdit
QFileListBox
QFileStream
QFont
QFontDialog
QForm
QGauge
QGlassFrame
QGroupBox
QHeader
QImage
QImageList
QLabel
QListBox
QListView
QMainMenu
QMemoryStream
QMenuItem
QMySQL
QNotifyIconData
QOpenDialog
QOleObject
QOleContainer
QOutLine
QOvalBtn
QPanel
QPopMenu
QRadioButton
QRect
QRegistry
QRichEdit
QSaveDialog
QScrollBar
QScrolBox
QSocket
QSplitter
QStatusBar
QStringGrid
QStringList
QTabControl
QTimer
QTrackBar
QTreeView
Componente Printer (Impressora)

É um objeto global e não precisa ser criado pelo programador. Note que 
algumas impressoras não suportam Draw  ou  Copyrect. O  componente
impressora  é principalmente  usado  para  artes gráficas, embora  possa
também  ser  utilizado para texto, veja LPRINT para impressão de texto.
Demais componentes    - Click Barra lateral esquerda
Informações adicionais - Click propriedades  em azul
Propriedades de Printer
   Campo    Tipo    R/W+    Padrão
 Aborted
 INTEGER    R  
Capabilities.Copies
 INTEGER    R  
Capabilities.Orientation
 INTEGER    R  
Capabilities.Collate
 INTEGER    R  
Copies
 INTEGER    RW  
CopyMode
 INTEGER    RW  cmBlackNess
Font
 QFONT    W  
FontsCount
 ARRAY of STRING    R  
Handle
 INTEGER    R  
Orientation
 INTEGER    RW  
PageHeight
 INTEGER    R  
PageNumber
 INTEGER    R  
PageWidth
 INTEGER    R  
PrinterIndex
 INTEGER    RW  
Printers
 ARRAY of STRING    R  
PrintersCount
 INTEGER    R  
Printing
 INTEGER    R  
Title
 STRING    RW  
+ R = Propriedade de leitura   W = Propriedade de escrita


Métodos de Printer
   Método    Tipo    Descrição  Parâmetros
 Abort
SUB Aborta a impressão do documento    0
 BeginDoc
SUB Inicia impressão de documento    0
 EndDoc
SUB Nada é impresso até esta chamada    0
 Circle
SUB (x1%, y1%, x2%, y2%, c%, fill%) Desenha e preenche círculo    6
 CopyRect
SUB (D, Image, S) D e S são QRECTs, Image pode ser uma QImage, QCanvas, ou QBitmap    3
 Draw
SUB (x%, y%, BMP) Desenha um Bitmap no Canvas    3
 FillRect
SUB (x1%, y1%, x2%, y2%, c%) Desenha e preenche um rectângulo    5
 Line
SUB (x1%, y1%, x2%, y2%, c%) Desenha uma linha    5
 Paint
SUB (x%, y%, c%, borderc%) Preenche uma Região    4
 Pset
SUB (x%, y%, c%) Plota pixels    3
 Rectangle
SUB (x1%, y1%, x2%, y2%, c%) Desenha um retângulo    5
 RoundRect
SUB (x1%, y1%, x2%, y2%, x3%, y3%, c%) Desenha e preenche um retângulo arredondado    7
 StretchDraw&
SUB (Rect AS QRECT, BMP) Desenha BMP e acomoda-o no Retângulo    2
 TextHeight
FUNCTION (Text$) AS WORD Retorna a altura em pixels do Texto    1
 TextWidth
FUNCTION (Text$) AS WORD Retorna a largura em pixels, do Texto    1
 TextOut
SUB (x%, y%, S$, fc%, bc%) Envia o texto para a impressora    5
 TextWidth
FUNCTION (Text$) AS WORD Retorna a largura em pixels, do Texto    1
Printer exemplo:

DECLARE SUB ButtonClick
SUB ComboBoxChange(Sender AS QComboBox)
    Printer.PrinterIndex = Sender.ItemIndex  
'-- Muda a impressora padrão
END SUB

DIM Font AS QFont
      Font.Color = &HFF0000
      Font.Name = "Arial"
      Font.Size = 20
DIM Bitmap AS QBitmap
Bitmap.BMP = "rapidq.bmp"


CREATE Form AS QForm
      CREATE ComboBox AS QComboBox
          Left = 5
          Top = 5
          Width = 150
          OnChange = ComboBoxChange
      END CREATE
      CREATE Button AS QButton
          Caption = "&Print"
          Top = 3
          Left = 180
          OnClick = ButtonClick
      END CREATE
      CREATE GroupBox AS QGroupBox
          Caption = "Print Preview..."
          Top = 35
          Width = Form.ClientWidth
      END CREATE
      Center
END CREATE

FOR I = 0 TO Printer.PrintersCount-1
        ComboBox.AddItems(Printer.Printers(I))   
'-- Adiciona lista de impressoras ao combobox
NEXT
ComboBox.ItemIndex = Printer.PrinterIndex

Form.ShowModal

SUB ButtonClick
        Printer.Orientation = 1  
' Landscape (paisagem)
        Printer.BeginDoc
        Printer.TextOut(1000,1000,"Alô Mundo!",0,-1)
        Printer.Font = Font
        Printer.TextOut(10,10,"Está imprimindo?",0,-1)
        Printer.Line(10,10,500,500,0)
        Printer.EndDoc
END SUB
Sinta-se à vontade para dar sugestões e fazer críticas construtivas.

Anterior           Alto da página           Página Inicial             Próxima