|
みなさま こんにちは またお世話になります。
今回はデーターを入力したシートがいっぱいになったらコピーをして
またデーターを入力して、それを印刷するマクロを組んでいます。
コピーするシートがデーター量に応じて変化する為シート数は確定できません
1シートずつ印刷は出来ますがこれをコピーしたシートを全て選択して
一括で印刷は出来無いでしょうか。
また印刷後にそのコピーしたシートを削除もしたいのですがよろしくお願いします
今は1枚ずつ印刷をしています。
基本シートはシート1〜4でコピーシートは右側に追加されていきます。
追加と印刷のコードは以下となっています。
============================================
Private Sub CommandButton9_Click()
Range("A39").Value = TextBox1.Value
Dim i As Integer
Dim s As String, title As String
s = "継続しますか?"
title = "継続の確認"
i = MsgBox(s, vbYesNo + vbExclamation, title)
If i = vbYes Then
MsgBox ("シートをコピーします")
Sheets("新規・特売").Copy after:=Worksheets(Sheets.Count)
Sheets("新規・特売").Select
Range("A15:M41").ClearContents
Worksheets("マスター").Activate
UserForm1.Show False
Unload UserForm3
Else
MsgBox ("保存しますして終了します!")
ActiveWorkbook.Close savechanges:=True
End If
End Sub
Private Sub CommandButton10_Click()
Dim s As Integer
MsgBox ("印刷します!")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A15:M41").ClearContents
Range("AD9:AJ11").ClearContents
Range("AM9:AS11").ClearContents
Range("AZ9:BF11").ClearContents
Range("BI9:BO11").ClearContents
s = MsgBox("印刷するシートはありますか?", vbYesNo, "印刷の確認")
If s = vbYes Then
Exit Sub
Else
MsgBox ("保存しますして終了します!")
Worksheets("マスター").Activate
ActiveWorkbook.Close savechanges:=True
End If
End Sub
============================================
|
|