閉じる

プリンターの設定（ACCESS2002以降）　.printer


参照URL:　http://support.microsoft.com/kb/839378/ja



このサンプルでは、Northwind.mdb ファイルの [商品区分別商品リスト] レポートの印刷設定を変更した設定を保存して、レポートを閉じます。



Sub SetPrintInf()

    Dim rpt As Report



    DoCmd.OpenReport ReportName:="商品区分別商品リスト", View:=acViewPreview

    Set rpt = Reports("商品区分別商品リスト")



        With rpt.Printer

            '用紙の向きを縦に設定

            .Orientation = acPRORPortrait

            '印刷部数を 2 部に設定

            .Copies = 2

            '給紙トレイを下段に設定

            .PaperBin = acPRBNLower

            '印刷するページの上の余白を 20mm に設定

            .TopMargin = Round(20 * 56.7, 2)

            '印刷するページの下の余白を 20mm に設定

            .BottomMargin = Round(20 * 56.7, 2)

            '印刷するページの右の余白を 10mm に設定

            .RightMargin = Round(10 * 56.7, 2)

            '印刷するページの左の余白を 10mm に設定

            .LeftMargin = Round(10 * 56.7, 2)

        End With



    'レポートを保存します。

    DoCmd.Save

    'レポートを閉じます。

    DoCmd.Close ObjectType:=acReport, ObjectName:="商品区分別商品リスト"



    Set rpt = Nothing

End Sub