Appendix A: PRINTER
| Rapid-Q Documentation by William Yu (c)1999 |
Appendix A: PRINTER |
|
PRINTER Component
This object is global, and need not be created. Please note that some printers
do not support Draw or CopyRect. The printer component is mainly used for graphics,
although it may also be suitable for text, please refer to LPRINT for text-only printing.
Printer Properties
| Field | Type | R/W | Default |
|
|
|
|
| Aborted | INTEGER | R | |
| Aborted determintes if the user aborted the print job.
|
| Capabilities.Copies | INTEGER | R | |
| Capabilities.Copies indicates whether the print is capable of printing multiple copies.
|
| Capabilities.Orientation | INTEGER | R | |
| Capabilities.Orientation indicates whether the print is capable of different orientations.
|
| Capabilities.Collate | INTEGER | R | |
| Capabilities.Collate indicates whether the print is capable of collating.
|
| Copies | INTEGER | RW | |
| Number of copies to print.
|
| CopyMode | INTEGER | RW | cmBlackNess |
| Font | QFONT | W | |
| Fonts | ARRAY of STRING | R | |
| FontsCount | INTEGER | R | |
| Handle | INTEGER | R | |
| Orientation | INTEGER | RW | |
| Orientation determines if the print job prints vertically or horizontally on a page.
Valid orientation values are:
0 = poPortrait (Vertical print)
1 = poLandscape (Horizontal print)
|
| 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 | |
| Title is the text that appears in the Print Manager and on network header pages.
|
Printer Methods
| Method | Type | Description | Params |
|
|
|
|
| Abort | SUB | Abort printing the document | 0 |
| BeginDoc | SUB | Starts new document to print | 0 |
| BeginDoc sends a print job to the printer.
|
| EndDoc | SUB | Nothing is printed until this is called | 0 |
| EndDoc will start the print job.
|
| NewPage | SUB | Start printing on a new page | 0 |
| Circle | SUB (x1%, y1%, x2%, y2%, c%, fill%) | Draw & Fill Circle | 6 |
| CopyRect | SUB (D, Image, S) | D and S are QRECTs, Image can be a QImage, QCanvas, or QBitmap | 3 |
| Draw | SUB (x%, y%, BMP) | Draw Bitmap on Canvas | 3 |
| FillRect | SUB (x1%, y1%, x2%, y2%, c%) | Draws & Fills a rectangle | 5 |
| Line | SUB (x1%, y1%, x2%, y2%, c%) | Draws a line | 5 |
| Paint | SUB (x%, y%, c%, borderc%) | Fill Region | 4 |
| Pset | SUB (x%, y%, c%) | Pixel plot | 3 |
| Rectangle | SUB (x1%, y1%, x2%, y2%, c%) | Draws a rectangle | 5 |
| RoundRect | SUB (x1%, y1%, x2%, y2%, x3%, y3%, c%) | Draws & Fills a rounded rectangle | 7 |
| StretchDraw | SUB (Rect AS QRECT, BMP) | Draw BMP and stretch to fit inside Rect | 2 |
| TextHeight | FUNCTION (Text$) AS WORD | Returns the height, in pixels, of Text$ string | 1 |
| TextWidth | FUNCTION (Text$) AS WORD | Returns the width, in pixels, of Text$ string | 1 |
| TextRect | SUB (Rect AS QRECT, x%, y%, S$, fc%, bc%) | Write text, and clip within region Rect | 6 |
| TextOut | SUB (x%, y%, S$, fc%, bc%) | Writes text to printer | 5 |
Printer Examples
DECLARE SUB ButtonClick
SUB ComboBoxChange(Sender AS QComboBox)
Printer.PrinterIndex = Sender.ItemIndex '-- Change default printer
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)) '-- Add printer list to combobox
NEXT
ComboBox.ItemIndex = Printer.PrinterIndex
Form.ShowModal
SUB ButtonClick
Printer.Orientation = 1 ' Landscape
Printer.BeginDoc
Printer.TextOut(1000,1000,"Hi World!",0,-1)
Printer.Font = Font
Printer.TextOut(10,10,"Does this print?",0,-1)
Printer.Line(10,10,500,500,0)
Printer.EndDoc
END SUB
|
|
搜索
论坛
Home
回顶部
g.yi.org Hits:0 Last modified:2015-12-25 19:42:45
