Applies ToAccess για Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013

Ισχύει για

Αντικείμενο Printer

Επιστρέφει ή ορίζει μια σταθερά AcPrintPaperSize που υποδεικνύει το μέγεθος χαρτιού που θα χρησιμοποιηθεί για την εκτύπωση. Ανάγνωσης/εγγραφής.

Η σταθερά AcPrintPaperSize μπορεί να είναι μία από αυτές τις ακόλουθες σταθερές AcPrintPaperSize.

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

παράσταση.PaperSize

παράσταση Υποχρεωτικό. Μια παράσταση που επιστρέφει ένα από τα αντικείμενα της λίστας "Ισχύει για".

Παράδειγμα

Το ακόλουθο παράδειγμα ορίζει διάφορες ρυθμίσεις εκτυπωτή για τη φόρμα που καθορίζεται στο όρισμα strFormname της διαδικασίας.

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:=acSaveYesEnd Sub

Χρειάζεστε περισσότερη βοήθεια;

Θέλετε περισσότερες επιλογές;

Εξερευνήστε τα πλεονεκτήματα της συνδρομής, περιηγηθείτε σε εκπαιδευτικά σεμινάρια, μάθετε πώς μπορείτε να προστατεύσετε τη συσκευή σας και πολλά άλλα.