No.6ベストアンサー
- 回答日時:
そのフォームには、搬入書のNoを表示しているテキストボックスがありますよね?そのテキストボックスを自動的にひいて来れます。
クエリの抽出条件のところに、[forms]![フォーム名]![テキストボックス名]を記述しそのクエリーをレポートのレコードソースとしてください。
No.5
- 回答日時:
搬入書というレポートのレコードソースをテーブルではなくそのフォームに表示
されている搬入書の搬入書No等のキーを使って抽出するクエリをソースに使えば
フォームに表示されているデータだけ7枚出力出来ます。
搬入書のレポートがテーブルをソースに使っていればテーブル上のレコード全て
出力されてしまいます。
この回答への補足
回答ありがとうございます。
なるほど…クエリで搬入書のNoを抽出条件に絞り込めばいいわけですね。
フォームで表示している搬入書Noを自動で読み取る…なんてことはできないですよね。
できれば印刷までスムーズに持っていけるのにと思っただけです。
すみません、贅沢ばかり言って。
No.4
- 回答日時:
DoCmd.OpenReportの後に記述します。
PrintOutアクションでレポートを印刷する場合は一度プレビューでレポートを開いておかないといけません。DoCmd.OpenReport stDocName, acViewPreview
DoCmd.PrintOut acPrintAll, , , acHigh, 7, True
DoCmd.Close acReport, stDocName
一度プレビューで開くため、最後に閉じます。
参考までにOpenReportの引数である、acNormalというのは、いきなり印刷してしまう引数で、印刷物を確認してから印刷したい人には向きません。その場合はacViewPreviewを使います。いわゆる印刷プレビューが表示され、ユーザはその後印刷を始めます。
この回答への補足
お世話になります。
教えていただいた通り組み込んでみたところ
テーブルに入っている情報全てが印刷されてしまいます。
フォーム(単票形式)で表示されるもののみを7枚出力したいのですが
これはマクロの問題ではなくレポートの設定の問題なのでしょうか??
お手数ですが回答をよろしくお願いします。
No.3
- 回答日時:
VBAのプログラムコードはVBEの画面で確認できますので、
レポートの印刷の処理を7回記述する(印刷処理の1行のコードをコピーして6回貼り付けする。)または、7回ループさせることでできます。
VBAのプログラムコードを確認するには、
(1)作成した印刷のボタンを右クリックしプロパティを選択。
(2)イベントタブでクリック時のイベントにイベントプロシージャとあるので、そこをクリック
(3)右に▼のボタンと・・・の2つのボタンが現れるので・・・のボタンをクリック
でできます。
すると下記のようなプログラムコードが表示されます。
Private Sub 印刷ボタン_Click()
On Error GoTo Err_印刷ボタン_Click
Dim stDocName As String
stDocName = "レポート1"
DoCmd.OpenReport stDocName, acNormal
End Sub
レポートの印刷の処理を7回記述する(印刷処理の1行のコードをコピーして6回貼り付けする。)には、
上記のプログラムの DoCmd.OpenReport・・・の1行を選択してCtrlキーを押しながらCキーをたたき、
その下の行をクリックしてカーソルを表示させ、Ctrlキーを押しながらVキーを6回叩きます。下記に例を示します。
Private Sub 印刷ボタン_Click()
On Error GoTo Err_印刷ボタン_Click
Dim stDocName As String
stDocName = "レポート1"
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acNormal
End Sub
ループさせるには下記のように処理を修正します。(いきなり印刷されるのを防ぐためメッセージボックスもいれてみました。)
Private Sub 印刷ボタン_Click()
On Error GoTo Err_印刷ボタン_Click
Dim stDocName As String
Dim i As Integer
If MsgBox("印刷しますか?", vbYesNo + vbDefaultButton1, "確認") = vbYes Then
stDocName = "レポート1"
For i =1 TO 7
DoCmd.OpenReport stDocName, acNormal
Next i
End If
End Sub
ご参考になれば幸いです。m(__)m
No.2
- 回答日時:
DoCmd.PrintOut で処理できます。
>stDocName = "搬入書"
>DoCmd.OpenReport stDocName, acNormal
この部分を
stDocName = "搬入書"
DoCmd.OpenReport stDocName, acPreview, "", ""
acPrintAll, , , acHigh, 7, True
の記述に直します。
数字の 7が入っている個所が枚数になります。
搬入書をプレビューで表示し7枚出力します。
No.1
- 回答日時:
VBAを使うのでしょうか?VBAならDocmd.Printoutアクションで部数を指定できます。
またマクロなら、「印刷」アクションを選べば引数で部数を指定できます。実際にはこの2つは全く同じ事をしますが。
この回答への補足
回答ありがとうございます!
現在このようなマクロを書いています。
Private Sub Ctl7枚同時印刷_Click()
On Error GoTo Err_Ctl7枚同時印刷_Click
Dim stDocName As String
stDocName = "搬入書"
DoCmd.OpenReport stDocName, acNormal
Exit_Ctl7枚同時印刷_Click:
Exit Sub
Err_Ctl7枚同時印刷_Click:
MsgBox Err.Description
Resume Exit_Ctl7枚同時印刷_Click
どの部分に部数を入れればよいのでしょうか。
お手数ですが再度回答をお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- プリンタ・スキャナー 【至急】EPSON EP-808AB プリンターUSBメモリーが反応しない 3 2022/06/12 01:13
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- プリンタ・スキャナー 印刷出来ません...エプソン EP302 トラブルシューティングについて 7 2022/07/16 10:20
- プリンタ・スキャナー キャノンmp490プリンター【エラー番号5400】で【プリンタートラブルが発生しました。電源を入れ直 2 2023/07/24 17:45
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- プリンタ・スキャナー 緊急です。コピーも印刷もできません。 EP-802Aです。コピーしようとして印刷ボタン押しても何も印 6 2023/07/19 14:59
- プリンタ・スキャナー インクジェットプリンターで画用紙の厚紙は印刷しても大丈夫ですか? 6 2022/11/16 19:23
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ACCESSの複数レポートの印刷について。
Access(アクセス)
-
ACCESSのレポートで、指定した数だけラベル印刷を行うには?
その他(データベース)
-
アクセスのレポート合成(複数のレポートを一つにまとめる方法)
その他(データベース)
-
-
4
ACCESS2016 在庫数に応じた枚数のラベルを印刷したい
Access(アクセス)
-
5
ACCESS レポートの印刷枚数指定について
Excel(エクセル)
-
6
accessのレポートであとから他のテーブルのフィールドを追加する方法
Access(アクセス)
-
7
Access 宛名ラベル レポートの印刷部数を指定し、印刷を行う方法
Access(アクセス)
-
8
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
9
Accessでデータシートに同じデータがいくつもでてしまいます。
その他(データベース)
-
10
ACCESSで、フォームで抽出したものをレポートで印刷したいのですが・・・
Access(アクセス)
-
11
Accessで割り算の余りを求める計算方法を教えてください
Excel(エクセル)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
14
Excelのデータ(数字)をテキスト型としてaccessにインポートする方法
Excel(エクセル)
-
15
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
16
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
17
アクセスにて複数のレポートの印刷順序設定?!
Access(アクセス)
-
18
accessのレポートで元になるテーブルの変更
Access(アクセス)
-
19
Access_Formのデザインビュー画面を拡大表示
Access(アクセス)
-
20
アクセスで#エラーを表示させない方法は?
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
ACCESS フォームをそのまま印刷...
-
Accessのフォームで、画面表示...
-
アクセスで特定のレコードのみ...
-
MS Access 印刷時に、印刷レコ...
-
ACCESSのレポートで、指定した...
-
アクセスのフォーム印刷で不要...
-
サブフォームの印刷方法を教え...
-
Access 宛名ラベル レポートの...
-
Access2013 レポートを印刷する...
-
アクセスのレポート合成(複数...
-
アクセスのフォーム画面の印刷...
-
Access2016 レコード印刷時に入...
-
Accessフォームからパラメータ...
-
マイクロソフトアクセス レポ...
-
アクセスのレポート印刷時にフ...
-
Accessの単票印刷はフォームで...
-
ACCESSの複数レポートの印刷に...
-
ACCESS チェックしたも...
-
ACCESSからVBAでWORDの印刷を..
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
ACCESS フォームをそのまま印刷...
-
Accessフォームからパラメータ...
-
アクセスのレポート合成(複数...
-
アクセスで特定のレコードのみ...
-
ACCESSのレポートで、指定した...
-
Accessのフォームで、画面表示...
-
ACCESS チェックしたも...
-
ACCESSの複数レポートの印刷に...
-
Access2013 レポートを印刷する...
-
ボタン1つで1度に複数枚印刷す...
-
アクセスのフォーム画面の印刷...
-
アクセスで希望のレポートを1枚...
-
【Access】フォームのプロパテ...
-
ACCESSからVBAでWORDの印刷を..
-
ACCESSのマクロで特定のレポー...
-
アクセスのフォーム印刷で不要...
-
アクセスでチェックボックスの...
-
Access レポート印刷時のイベン...
-
Accessのレポートで1レコード...
おすすめ情報