小数点以下の入力制限

Private Sub txt_Change()
    FraLmt Me!txt, 2　　←テキストの内容を小数点以下２桁で制限する
End Sub

Sub FraLmt(d As TextBox, fd As Byte)
    Dim x
    If IsNull(d.Text) Then Exit Sub
    If 0 = Len(d.Text) Then Exit Sub
    If Not IsNumeric(d.Text) Then Exit Sub
   
    x = d.Text * 10 ^ fd
    If x - Fix(x) <> 0 Then
        d.Text = Fix(x) / (10 ^ fd)
        d.SelStart = Len(x)
    End If
End Sub

Access Printer Object 変更して印刷

Sub RestoreReportPrinter()
　　　　Dim rpt As Report
　　　　Dim prtOld As Printer
　　　　Dim prtNew As Printer

　　　　DoCmd.OpenReport ReportName:="商品区分別商品リスト", View:=acViewPreview
　　　　Set rpt = Reports("商品区分別商品リスト")

　　　　'レポートの現在のプリンタ設定を prtOld 変数に保存します。
　　　　Set prtOld = rpt.Printer

　　　　'レポートの現在のプリンタ設定を prtNew 変数に代入します。
　　　　Set prtNew = rpt.Printer

　　　　'レポートの設定を変更
　　　　With prtNew
　　　　　　　　'用紙の向きを横に設定
　　　　　　　　.Orientation = acPRORLandscape
　　　　　　　　'印刷するページの上の余白を 30mm に設定
　　　　　　　　.TopMargin = Round(30 * 56.7, 2)
　　　　　　　　'印刷部数を 2 部に設定
　　　　　　　　.Copies = 2
　　　　　　　　'上下にページをめくる両面印刷の印刷の向きに設定
　　　　　　　　.Duplex = acPRDPVertical
　　　　　　　　'給紙トレイを上段に設定
　　　　　　　　.PaperBin = acPRBNUpper
　　　　End With


　　　　'印刷します。
　　　　Docmd.RunCommand acCmdPrint

　　　　'プリンタを元の設定に戻します。
　　　　Set rpt.Printer = prtOld

　　　　'保存せずに、レポートを閉じます。
　　　　DoCmd.Close ObjectType:=acReport, ObjectName:="商品区分別商品リスト", Save:=acSaveNo

　　　　Set rpt = Nothing
　　　　Set prtNew = Nothing
　　　　Set prtOld = Nothing
End Sub

Access 2010で2003までの起動時の設定ダイアログと同様の設定を行う

▼操作手順：

［ファイル］タブ
　−［オプション］をクリック
　↓
［Accessのオプション］ダイアログ
　−［カレントデータベース］をクリック
　↓
設定変更後
［Accessのオプション］ダイアログ
　−［OK］ボタンをクリック