エクセル2010です。
だいぶ端折ってますが、以下のようなコードでDATAシートのデータをInput用シートに転記し、それを参照しているPrint用シートを連続して印刷したいのです。
その歳、印字する用紙はA4等の定形サイズではない特殊な台紙なので、プリンターで「手差し」トレイに入れます。
自分の端末だとプリンターは決まっているので指定できると思うのですが、このエクセルを使う人が特定できず、どのようなプリンターなのかわかりません。(少なくとも手差しトレイはあります)
そのためPrint実行前にユーザーにトレイを選択してもらうにはどのようなコードを書き加えればよいでしょうか?ご教示いただければ幸いです。
Sub test01()
Dim ws(2) As Worksheet
Dim i As Long, x As Long
Set ws(0) = Sheets("DATA")
Set ws(1) = Sheets("Input用")
Set ws(2) = Sheets("Print用")
x = ws(0).Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To x - 1
ws(1).Range("A1:N1").Value = ws(0).Range("A1:N1").Offset(i).Value
ws(2).PrintOut
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Excel(エクセル) vba 転記するときの最終行について 2 2022/09/03 09:31
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) vba シート名の一覧を2列に分けるには 5 2023/04/24 08:56
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Excel(エクセル) vbaで列幅について 1 2022/11/15 08:31
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロでプリンタ、用紙、給紙先を指定するには?
Excel(エクセル)
-
エクセルVBAでプリンタプロパティを操作したい
Visual Basic(VBA)
-
Excel VBAを使って給紙方法を変更する(キーストローク使用)
Excel(エクセル)
-
-
4
Excelマクロで印刷設定
Visual Basic(VBA)
-
5
VBでExcel印刷する時のプリンタトレイの選択方法について
Visual Basic(VBA)
-
6
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
7
Accessでのプリンター給紙トレイの指定
その他(データベース)
-
8
UserForm1.Showでエラーになります。
工学
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
特定のEXCELのファイルを印刷するときにプリンタを替えられるか?
Excel(エクセル)
-
11
「プリンタの設定」ダイアログボックスのプリンタを指定したい。
その他(プログラミング・Web制作)
-
12
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
13
印刷をキャンセル
Excel(エクセル)
-
14
マクロで印刷時のポートについて
Access(アクセス)
-
15
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
16
エクセルでブックごとにプリンタを設定したい
Excel(エクセル)
-
17
印刷ダイアログを表示させない方法
Visual Basic(VBA)
-
18
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
19
給紙トレイをダイアログを使わずに指定して印刷する方法
Visual Basic(VBA)
-
20
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで手差しトレイを指...
-
プリントスクリーンで使うプリ...
-
プリンターがプリントされませ...
-
WIN10でプリンタを削除してもポ...
-
Wi-Fiでプリンター混線の可能性...
-
同機種のプリンターを使い分けたい
-
Wordで用紙サイズが出ない
-
用紙切れという表示が出て印刷...
-
プリンターが一時停止中で出力...
-
オフラインのプリンターをオン...
-
このケーブルは何に使うもので...
-
無線LANの設定ができません
-
『白」の印刷できるプリンタ
-
キューのドキュメントをキャン...
-
macでwordの用紙サイズ変更がで...
-
ネットワークでプリンターを共...
-
パソコンとプリンターの接続設...
-
Wordを使って印刷すると文字の...
-
PC98(MS-DOS)で使えるプリンタ...
-
windows10更新後プリンターの印...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで手差しトレイを指...
-
プリントスクリーンで使うプリ...
-
WIN10でプリンタを削除してもポ...
-
15年前に買った、TVとBDレコー...
-
プリンター買い替え時の設定に...
-
同機種のプリンターを使い分けたい
-
大至急!!
-
SDカードリーダーについて
-
プリンターがプリントされませ...
-
卓上カレンダーの印刷、規定寸...
-
お願いします。パソコンのプリ...
-
Wordで用紙サイズが出ない
-
WAIDOWS11を入れたら、プリンタ...
-
active directory ドメインサー...
-
デバイスマネージャーにプリン...
-
お勧めの海外(ヨーロッパ)でも...
-
通常はプリンターAで印刷、指定...
-
プリンターのインストールがで...
-
プリンターの上に物(約2.5kgぐ...
-
マクロで印刷時のポートについて
おすすめ情報