Se connecter avec Microsoft
Connectez-vous ou créez un compte.
Bonjour,
Sélectionnez un autre compte.
Vous avez plusieurs comptes
Choisissez le compte avec lequel vous voulez vous connecter.

S’applique à

Objet Printer

Renvoie ou définit une constante AcPrintPaperSize indiquant la taille du papier à utiliser lors de l’impression. Lecture/écriture.

AcPrintPaperSize peut être l’une des constantes AcPrintPaperSize suivantes.

acPRPS10x14

acPRPS11x17

acPRPSA3

acPRPSA4

acPRPSA4Small

acPRPSA5

acPRPSB4

acPRPSB5

acPRPSCSheet

acPRPSDSheet

acPRPSEnv10

acPRPSEnv11

acPRPSEnv12

acPRPSEnv14

acPRPSEnv9

acPRPSEnvB4

acPRPSEnvB5

acPRPSEnvB6

acPRPSEnvC3

acPRPSEnvC4

acPRPSEnvC5

acPRPSEnvC6

acPRPSEnvC65

acPRPSEnvDL

acPRPSEnvItaly

acPRPSEnvMonarch

acPRPSEnvPersonal

acPRPSESheet

acPRPSExecutive

acPRPSFanfoldLglGerman

acPRPSFanfoldStdGerman

acPRPSFanfoldUS

acPRPSFolio

acPRPSLedger

acPRPSLegal

acPRPSLetter

acPRPSLetterSmall

acPRPSNote

acPRPSQuarto

acPRPSStatement

acPRPSTabloid

acPRPSUser

expression.PaperSize

expression Obligatoire. Expression qui renvoie l’un des objets de la liste S’applique à.

Exemple

L’exemple suivant définit un large éventail de paramètres d’imprimante pour le formulaire spécifié dans l’argument strFormname de la procédure.

Sub SetPrinter(strFormname As String)
DoCmd.OpenForm FormName:=strFormname, _
view:=acDesign, datamode:=acFormEdit, _
windowmode:=acHidden
With Forms(form1).Printer
.TopMargin = 1440
.BottomMargin = 1440
.LeftMargin = 1440
.RightMargin = 1440
.ColumnSpacing = 360
.RowSpacing = 360
.ColorMode = acPRCMColor
.DataOnly = False
.DefaultSize = False
.ItemSizeHeight = 2880
.ItemSizeWidth = 2880
.ItemLayout = acPRVerticalColumnLayout
.ItemsAcross = 6
.Copies = 1
.Orientation = acPRORLandscape
.Duplex = acPRDPVertical
.PaperBin = acPRBNAuto
.PaperSize = acPRPSLetter
.PrintQuality = acPRPQMedium
End With
DoCmd.Close objecttype:=acForm, _
objectname:=strFormname, _
Save:=acSaveYes
End Sub

Besoin d’aide ?

Développez vos compétences
Découvrez des formations
Accédez aux nouvelles fonctionnalités en avant-première
Rejoindre Microsoft Office insiders

Ces informations vous ont-elles été utiles ?

Dans quelle mesure êtes-vous satisfait(e) de la qualité de la langue ?
Qu’est-ce qui a affecté votre expérience ?

Nous vous remercions de vos commentaires.

×