適用対象
Printer オブジェクト
指定したプリンターが使用する用紙ビンを示す AcPrintPaperBin 定数を設定するか返します。 読み取り/書き込み。
AcPrintPaperBin には、以下の AcPrintPaperBin 定数のいずれかを使用できます。 |
acPRBNAuto |
acPRBNCassette |
acPRBNEnvelope |
acPRBNEnvManual |
acPRBNFormSource |
acPRBNLargeCapacity |
acPRBNLargeFmt |
acPRBNLower |
acPRBNManual |
acPRBNMiddle |
acPRBNSmallFmt |
acPRBNTractor |
acPRBNUpper |
expression.PaperBin
expression 必ず指定します。 [適用先] リスト内のいずれかのオブジェクトを返す式。
使用例
次の例では、プロシージャの 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:=acSaveYes End Sub