Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1839 / 9994

←次へ　｜　前へ→


	【11437】PDFでの印刷指示について

YUKI - 10/2/1(月) 12:04 -


	引用なし

	パスワード

印刷指示について教えて下さい。
テーブルの情報を品番ごとに絞り込んで
PDFに印刷をしております。

　　　　Do Until rs.EOF
　　　　　　On Error Resume Next
　　　　　　cn.Execute "drop Table 印刷テーブル"
　　　　sql = ""
　　　　sql = sql & "select * into 印刷テーブル from マスタ "
　　　　sql = sql & "where 品番 = '" & rs("品番") & "'"
　　　　cn.Execute sql
　　　　DoCmd.SelectObject acReport, "マスタ", True
　　　　DoCmd.PrintOut　　←印刷ポート先をPDFに設定してます。
　　rs.MoveNext
　　Loop

ただこれですと品番ごとに毎回名前で保存する
ダイヤログが出てしまいます。
今までは我慢して使ってたんですが、品番が増えてしまい
出来れば自動的に品番を保存する名前にして保存してくれ
るように仕様を変更したいんですが・・・
こんなことできますかね？

PDFは印刷なのに保存する時の様な使い方ですので
調べるにもどうやったらいいか分かりづらくて・・・

過去ログも見たのですが、もし分かる方がいらしたら
すみませんがアドバイスお願い致します。
※Accessは2003を使っております。

ちなみにAccessvbaは余り詳しくないですが、
アドバイスを頼りになんとかやってみますので
お願い致します。

1,425 hits

▼

【11437】PDFでの印刷指示について YUKI 10/2/1(月) 12:04