Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Excel 2016)
1枚の印刷設定をを4分割にできるか
投稿日時: 20/09/07 09:33:50
投稿者: nanana123456

現在、下記マクロを作成したのですが、1ページのラベルに1枚の印刷設定となっております。
これを、A4用紙を横の状態にし、1ページに4枚のラベルへ印刷するように変更したいのですが、
どのようにしてよいのかわかりません。
どなたかお教えいただけないでしょうか?
 
 
Sub ラベル印刷()
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Integer
'
Set Cs = ThisWorkbook.Sheets("使い方")
Set Ds = ThisWorkbook.Sheets("ラベル")
'
 
'
Ds.Select '「ラベル」シートのデータ編集
j = Ds.Cells(5, 12) ' 初期値の数字です
k = Ds.Cells(7, 12) ' ここまで印刷の数字です
l = Ds.Cells(8, 12) ' 全体の枚数の数字です
'
m = MsgBox("処理を行いますか?", vbYesNo + vbQuestion, "印刷前の確認です")
    If m = vbYes Then
        MsgBox "処理を行います"
        If j <= k Then
            If k <= l Then
         
For i = k To j Step -1 ' j から k まで繰り返し。
    Ds.Cells(6, 12) = i ' 6行目、12列目のセル=L6セルに、印刷中のページ番号入れます。
    Ds.PrintOut ' 印刷します。
Next
'
    Else
        MsgBox "最終ページの指定が違うため処理を中断します"
    End If
     
    Else
        MsgBox "ページ数の指定が違うため処理を中断します"
    End If
     
     
     
    Else
        MsgBox "処理を中断します"
    End If
'
Ds.Select
    Ds.[A1].Select
'
 
End Sub
 

回答
投稿日時: 20/09/07 09:50:05
投稿者: simple

こちらの記事は参考にならないでしょうか。
「最新版でも使える!Office2016、Word2016、Excel2016の差込機能を使った宛名ラベルの作成方法。」
https://www.nakagawa-mfg.co.jp/info/3228/

投稿日時: 20/09/07 10:02:32
投稿者: nanana123456

早速ありがとうございました!
なるほど、その手がありましたね。
助かりました。

トピックに返信