アクセスの印刷ＶＢＡを教えて下さい
アクセス初心者です。
バージョンは2002を使っています。
ネットで探して詳しく分からないままプログラムしています。
フォームで印刷のコマンドボタンを作ってそのボタンをクリックすると表示されてる
1ページのみ印刷したいのですが全てのレコードが印刷されてしまいます。
どうすればいいのか教えて下さい。
下記が今現在のＶＢＡです。
Private Sub 印刷_Click()
Dim varCopies As Variant
varCopies = InputBox("部数を数字で入力してください", "印刷部数の指定")
If Len(varCopies) = 0 Then
Exit Sub
End If
If IsNumeric(varCopies) = False Then
MsgBox "部数は数字で入力してください", vbOKOnly + vbCritical, "入力エラー"
Exit Sub
ElseIf CLng(varCopies) = 0 Then
MsgBox "部数は0以上で入力してください", vbOKOnly + vbCritical, "入力エラー"
Exit Sub
End If
If MsgBox("印刷しますか？" & vbCrLf & "部数=" & varCopies _
, vbYesNo + vbInformation, "印刷の確認") = vbYes Then
DoCmd.OpenForm "伝票", acPreview, , , acFormReadOnly
DoCmd.PrintOut acPrintAll, , , , CLng(varCopies)
DoCmd.Close acForm, "伝票"
End If
End Sub
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/images/related_qa/c205_2_thumbnail_img_sm.png)
お礼
ご回答有難うございます。 おかげさまで解決しました。 お礼送れて申し訳ありません。