| Documentation component by D.Glodt (c)2000-2002 | Appendix A: QPageSetup |
|
|
|
| Field | Type | R/W | Défault | |
|
|
|
|
|
|
| DisablePrinter | BOOLEAN | R/W | False | |
| Printer configuration. | ||||
| DisablePaper | BOOLEAN | R/W | False | |
| Choice of paper. | ||||
| DisableOrient | BOOLEAN | R/W | False | |
| Selection paper orientation. | ||||
| DisableMargins | BOOLEAN | R/W | False | |
| Margins paper | ||||
| Orinetation | BOOLEAN | R | FALSE | |
| Orientation paper ,true value is landscape?false is portrait | ||||
| MarginLeft | LONG | R/W | 0 | |
| Margin left in mm | ||||
| MarginTop | LONG | R/W | 0 | |
| Margin top in mm | ||||
| MarginRight | LONG | R/W | 0 | |
| Margin right in mm | ||||
| MarginBottom | LONG | R/W | 0 | |
| Margin bottom in mm | ||||
| PageWidth | LONG | R | ||
| Page width in mm | ||||
| PageHeight | LONG | R | ||
| Page height in mm | ||||
| Caption | STRING | RW | ||
| Title dialog box |
| Method | Type | Description | Params | |
|
|
|
|
|
|
| Execute | SUB | Show printer dialog box |
| Event | Type | Occurs when... | Params | |
|
|
|
|
|
|
QPageSetup Examples
$TYPECHECK ON
$Include "Rapidq.inc"
$include "Object\QPageSetup.inc"
Declare Sub PageDlg
Dim Setup as QPageSetup
CREATE Form AS QFORM
Caption = "Mise en page"
Width = 300
Height =200
Center
CREATE Label1 AS QLABEL
Caption = ""
Left=12
Top=14
Width=200
Height=100
END CREATE
CREATE Button1 AS QBUTTON
Caption="Setup"
Left=100
Top=120
OnClick=PageDlg
END CREATE
END CREATE
Setup.MarginLeft=25
Setup.MarginTop=25
Setup.MarginRight=25
Setup.MarginBottom=25
Setup.Caption="Mise en page"
Form.ShowModal
Sub PageDlg
If Setup.Execute then
label1.caption="MarginLeft:"+str$(setup.marginLeft)+chr$(13)+
_
"MarginTop:"+str$(setup.marginTop)+chr$(13)+ _
"MarginRight:"+str$(setup.marginRight)+chr$(13)+ _
"MarginBottom:"+str$(setup.marginBottom)+chr$(13)+ _
"PageWidth:"+str$(setup.pageWidth)+chr$(13)+ _
"PageHeight:"+str$(setup.pageHeight)+chr$(13)+ _
"Orinetation:"+str$(setup.orientation)
end if
End Sub