QPageSetup Composant

QPageSetup Proprietés

Champs	Type	L/E	Défaut
DisablePrinter	BOOLEAN	L/E	False
	Configuration imprimante inopérant si valeur true
DisablePaper	BOOLEAN	L/E	False
	Choix papier inopérant si valeur true
DisableOrient	BOOLEAN	L/E	False
	Selection orientation papier inopérant si valeur true
DisableMargins	BOOLEAN	L/E	False
	Réglage de marge papier inopérant si valeur true
Orinetation	BOOLEAN	L	FALSE
	Indique si l'orientation papier ,0 portrait ,1 paysage
MarginLeft	LONG	L/E	0
	Marge gauche en mm
MarginTop	LONG	L/E	0
	Marge haute en mm
MarginRight	LONG	L/E	0
	Marge droite en mm
MarginBottom	LONG	L/E	0
	Marge basse en mm
PageWidth	LONG	L
	Largeur page en mm
PageHeight	LONG	L
	Hauteur page en mm

QPageSetup Methods

Methode	Type	Description	Parametres
Execute	SUB(QFORM)	Affiche la boite de dialogue	1

QPageSetup Events

Evenement	Type	Declenchement	Parametres

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
  Form.ShowModal

  Sub PageDlg
    If Setup.Execute(form) 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