VBAで印刷処理の設定

質問

メインシートで、印刷ボタンを押した際に、
設定値に基づいて、条件分岐するには、どうすればいいでしょうか。
ご教授お願いいたします。

★シート名
・メインシート
・名簿
・設定
の３つのシートがあります。

メインシートには、入力項目があります。

名簿には、
No. 会社名 担当 印刷
・
・
・
のセルがあります。

印刷列は、
「0」or「1」の指定がされています。

0の場合は、印刷しない。
1の場合は、印刷する。

設定シートには、
項目 値
列があります。

項目1には、「プレビュー表示」があり、
値には、「プレビュー表示する」or「プレビュー表示しない」が
設定されます。
Sub 連続印刷()
Dim i As Integer
Dim LastRow As Integer

Worksheets("メインシート").Select

With Worksheets("名簿")
LastRow = .Range("A65536").End(xlUp).Row
For i = 2 To LastRow
Range("A4").Value = .Range("A" & i).Value

' プレビュー表示分岐
With Worksheets("設定")
' Cells(行番号, 列番号)
If Cells(2, 2).Value = "1" Then
' プレビュー確認
ActiveSheet.PrintPreview
ElseIf Cells(2, 2).Value = "プレビュー表示しない" Then
' 確認なしで印刷
ActiveSheet.PrintOut
Else
' プレビュー確認
' ActiveSheet.PrintPreview
MsgBox ("test")

End If
End With
Next
End With
End Sub

回答No.2

dogs_cats

メインシートが印刷シートなのでしょうね。
名簿の印刷確認欄が記載無いのでD列と仮定。
印刷プレビュー確認は毎回設定シートから呼び出す必要は無いので、変数flgで冒頭に設定。
毎回印刷プレビュー確認判断をデータ毎にしたいのであれば名簿にプレビュー確認列が必要。
印刷プレビューの確認は設定シートcells(2,2)が１であるか否かで判断可能なので文字列判断不用としました。

Sub 連続印刷()
Dim i As Integer
Dim LastRow As Integer
Dim flg As Integer

'印刷プレビュー有無設定
If Worksheets("設定").Cells(2, 2).Value = "1" Then flg = 1

Worksheets("メインシート").Select

With Worksheets("名簿")

LastRow = .Range("A65536").End(xlUp).Row

For i = 2 To LastRow

'印刷確認、D列が印刷確認列と仮定
If .Range("D" & i).Value = 1 Then

Range("A4").Value = .Range("A" & i).Value

'プレビュー確認
If flg = 1 Then
ActiveSheet.PrintPreview
Else
' 確認なしで印刷
ActiveSheet.PrintOut
End If

End If

Next

End With

End Sub

回答No.1

f272

条件分岐するのは，すでに書いているようにifで分ければいいけど，
If Cells(2, 2).Value = "1" Then
とか
ElseIf Cells(2, 2).Value = "プレビュー表示しない" Then
とかはどのシートを参照しているのかわかってる？いまのままではメインシートを参照していることになるんだけど...