前提・実現したいこと
"氏名"というシートにA列=従業員番号、B例=従業員氏名をリスト化しました。
"印刷"というシートのA2セルに上記従業員番号、D2セルに上記従業員氏名を表示させて印刷かけたいです。
今はマクロを下記の通り登録しました。
Sub 差し込み印刷()
Dim i As Integer, j As Integer
Dim IsPrintOut As Integer, IsAutoPrint As Integer
Dim WS1 As Worksheet, WS2 As Worksheet
Dim Skip() As Variant, IsSkip As Boolean
Const FromNum As Integer = 1 '印刷を開始する行
Const ToNum As Integer = 96 '印刷を終了する行
Skip = Array() '印刷をスキップする行をコンマで区切って書く
Set WS1 = Worksheets("氏名")
Set WS2 = Worksheets("印刷")
IsPrintOut = MsgBox("処理を選択してください" & vbCrLf & _
"「はい」→印刷" & vbCrLf & _
"「いいえ」→プレビュー" & vbCrLf & _
"「キャンセル」→中止", _
vbYesNoCancel, "処理の選択")
If IsPrintOut = vbCancel Then Exit Sub
IsAutoPrint = vbNo
For i = FromNum To ToNum
IsSkip = False
If UBound(Skip) <> 0 Then
For j = 1 To UBound(Skip)
If i = Skip(j) Then
IsSkip = True
Exit For
End If
Next
End If
If IsSkip = False Then
WS2.Range("D2").Value = WS1.Cells(i, "B").Value
WS2.Range("A2").Value = WS1.Cells(i, "A").Value
If IsPrintOut = vbYes Then
WS2.PrintOut
Else
WS2.PrintPreview
End If
If IsAutoPrint = vbNo Then
IsAutoPrint = MsgBox("続行しますか?" & vbCrLf & _
"「はい→残りを連続して処理" & vbCrLf & _
"「いいえ」→次も確認メッセージを出す" & vbCrLf & _
"「キャンセル」→処理を中止", _
vbYesNoCancel, "印刷の確認")
If IsAutoPrint = vbCancel Then Exit Sub
End If
End If
Next
End Sub
発生している問題・エラーメッセージ
プロシージャの呼び出しまたは引数が無効です (エラー 5)
実行すると上記エラーが出て、デバックボタンを押すと Skip = Array() '印刷をスキップする行をコンマで区切って書くが黄色くは依頼とされています。 ### 試したこと お手上げ状態で何もしていません。 ### 補足情報(FW/ツールのバージョンなど)
回答1件
あなたの回答
tips
プレビュー