![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
エクセル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(エクセル)
-
Excel VBAを使って給紙方法を変更する(キーストローク使用)
Excel(エクセル)
-
エクセルVBAでプリンタプロパティを操作したい
Visual Basic(VBA)
-
-
4
Excelマクロで印刷設定
Visual Basic(VBA)
-
5
VBでExcel印刷する時のプリンタトレイの選択方法について
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Accessでのプリンター給紙トレイの指定
その他(データベース)
-
8
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
9
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
10
UserForm1.Showでエラーになります。
工学
-
11
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
12
エクセルでユーザー定義サイズの設定
Excel(エクセル)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
印刷をキャンセル
Excel(エクセル)
-
15
「プリンタの設定」ダイアログボックスのプリンタを指定したい。
その他(プログラミング・Web制作)
-
16
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
17
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
18
ExcelVBAでPDFを閉じるソース
その他(Microsoft Office)
-
19
特定のEXCELのファイルを印刷するときにプリンタを替えられるか?
Excel(エクセル)
-
20
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAで手差しトレイを指...
-
WIN10でプリンタを削除してもポ...
-
プリンターがプリントされませ...
-
複写機とは
-
2台のプリンターを4台のPCで...
-
Canonのプリンターの初期化 G33...
-
プリンター選択のメッセージボ...
-
A3対応、スキャナー付きでおス...
-
プリンターの上に物(約2.5kgぐ...
-
同機種のプリンターを使い分けたい
-
プリントスクリーンで使うプリ...
-
プリンターのつなぎ方
-
プリンターでスキャンした資料...
-
プリンタがずっと「調査中」です。
-
デバイスマネージャーにプリン...
-
エプソンプリンターpx201 の ...
-
インクカートリッジ交換
-
windows10更新後プリンターの印...
-
プリンターのドライバーが見つ...
-
プリンター買い替え時の設定に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAで手差しトレイを指...
-
WIN10でプリンタを削除してもポ...
-
プリントスクリーンで使うプリ...
-
プリンターがプリントされませ...
-
フォトプリンターを買おうと思...
-
通常はプリンターAで印刷、指定...
-
同機種のプリンターを使い分けたい
-
マクロで印刷時のポートについて
-
Wordで用紙サイズが出ない
-
プリンターでスキャンした資料...
-
デバイスマネージャーにプリン...
-
active directory ドメインサー...
-
プリンターの上に物(約2.5kgぐ...
-
オフラインのプリンターをオン...
-
このケーブルは何に使うもので...
-
WAIDOWS11を入れたら、プリンタ...
-
Canonのプリンターの初期化 G33...
-
プリンター買い替え時の設定に...
-
AS/400 のプリンターフォントや...
-
プリンターにまで「ハードウェ...
おすすめ情報