ここで教えていただいた、コードを実行したところ見事連続印刷できましたが、シートの上半分が10枚に印刷されます。10枚だと用紙がもったいないので、2シートづつA4で5枚に収めて印刷したいです。それにはどうしたらよろしいか。ご教示お願いします。
Sub TesSample()
Dim mySh As Variant
'請求書一括印刷
mySh = Array("AAA", "BBB", "CCC", "DDD", "EEE", "FFF", "GGG", "EEE", "FFF", "GGG")
Worksheets(mySh).Select
Worksheets(mySh).PrintPreview
Worksheets("hyousi").Select
End Sub
No.1ベストアンサー
- 回答日時:
こんばんは。
Wendy02です。このマクロは、前々回からの続きのマクロを直したものです。プロテクトは、パスワードは後でつけてください。
確か、プリンタの吐き出しを制御する方法があったはずですが、今、私の所のプリンタはありませんもので、実験が出来ません。それから、これは、縮小されたものか、B4サイズの紙のようですね。そうでないと、64行までは印刷できませんから。
Sub BillsTotalPrintProc2()
'請求書一括印刷
Dim mySh As Variant
Dim i As Long
Application.ScreenUpdating = False
'請求印刷面のデータの削除
Worksheets("請求印刷 (2)").UsedRange.Clear
'開始
mySh = Array("A", "B", "C", "D", "E", "F", "G", "I", "J")
For i = LBound(mySh) To UBound(mySh)
Worksheets(mySh(i)).Unprotect 'プロテクトを外す
Worksheets(mySh(i)).Range("B2:AB32").Copy _
Worksheets("請求印刷 (2)").Cells((i + 1) + 32 * i, 1)
Worksheets(mySh(i)).Protect 'プロテクトを掛ける
Next
Application.CutCopyMode = False
Worksheets("請求印刷 (2)").PrintPreview
Application.ScreenUpdating = True
Sheets("hyousi").Select
End Sub
'---------------------------------
'既に設定済みの場合は、以下は入りません。行の高さ-列の幅をコピーするマクロです。
'ハングしたかと思うほど、ひじょうに時間が掛かります。すでに、セルの高さ・幅が設定されていたら、これは必要ありません。
Sub PrintPageSetting()
'印刷ページ設定
Dim myRowsData As Variant
Dim myColumnsData As Variant
Dim i As Integer
Dim j As Integer
Dim k As Integer
'コピーされたシートの数
Const SH_COUNT = 10
Application.ScreenUpdating = False
With Worksheets("A").Range("B2:AB32")
ReDim myRowsData(1 To .Rows.Count)
ReDim myColumnsData(1 To .Columns.Count)
For i = 1 To .Rows.Count
myRowsData(i) = .Cells(i, 1).RowHeight
Next
For j = 1 To .Columns.Count
myColumnsData(j) = .Cells(1, j).ColumnWidth
Next
For j = 1 To .Columns.Count
Worksheets("請求印刷 (2)").Cells(1, j).ColumnWidth _
= myColumnsData(j)
Next
For k = 1 To SH_COUNT: For i = 1 To .Rows.Count
Worksheets("請求印刷 (2)").Cells(i + (SH_COUNT - 1) * 32, 1).RowHeight _
= myRowsData(i)
Next: Next
End With
Application.ScreenUpdating = True
End Sub
あありがとうございました。完璧にできました。
なんとお礼をもうしていいか言葉がみつかりません。
私の質問にこんなにも労力を使っていただいて恐縮しています。ただただ感謝のきもちです。
おっしゃるとおり、自分の作ったものを見たら85%に縮小されていたので、そのように変更したらばっちりでした。これからもご指導よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- プリンタ・スキャナー 2台のプリンターでそれぞれ異なる様式の帳票を印刷したい。 2 2022/09/06 10:07
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Excel(エクセル) エクセルVBAで次の二つを行いたいのですが思うように動きません。どう修正したらよいのでしょうか? 2 2023/04/22 14:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【EXCEL】【VBA】空欄は飛ばし...
-
PDFファイルがカラー印刷できない
-
お札の透かしの位置にずれ?
-
Hotmailのメール内容を印刷する...
-
Webページの印刷時、必要な部分...
-
Hotmailの送信文の印刷
-
PDFファイルを印刷すると黒くなる
-
アウトルック:予定表の月間ス...
-
エクセルを使って名簿を連続印...
-
booking com.で予約された方 ...
-
キヤノンMP810両面手動印刷の方法
-
PVC(ポリ塩化ビニール)の有害...
-
Twitterの投稿を印刷コピーしたい
-
パソコン印刷削除
-
パソコンから印刷すると中抜け...
-
outlook.comのメールを印刷する...
-
エクセルで複数ページを1枚に...
-
エプソン MJ-6000C の長尺印刷...
-
印刷の行間が飛んで印刷される
-
OUTLOOK2003での選択範囲印刷
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
特定のファイルのみ印刷がされ...
-
PDFファイルがカラー印刷できない
-
【EXCEL】【VBA】空欄は飛ばし...
-
会社に提出する地図(自宅から...
-
PDFファイルを印刷すると黒くなる
-
テプラー:KING JIM SR720 連...
-
メールの画像が印刷できません。
-
エクセルを使って名簿を連続印...
-
国語辞典が第10版が第12版にな...
-
PDF印刷 一枚だけカラーにする方法
-
PDFの印刷が途中で終わってしま...
-
バックグラウンドとは?何度再...
-
PVC(ポリ塩化ビニール)の有害...
-
印刷の行間が飛んで印刷される
-
エクセルで複数ページを1枚に...
-
手紙で字が汚い時の添え書きは?
-
OutLookメールの一部分だけを印...
-
Twitterの投稿を印刷コピーしたい
-
プリンターの設定「印刷部数」...
-
Wordで複数枚印刷しようと...
おすすめ情報