|
差込印刷すべく以下のようなものを作りました
これで自宅のEXCEL2010のパソコンではすべてうまく挙動しました。
10枚印刷したければ10枚印刷できます。
ところが、その他のパソコン、EXCEL2013で使用すると、
シート上のマクロ登録された印刷ボタンから印刷すると、
なぜか10枚印刷したくても2枚しか印刷されません。
繰り返しが2回しかされないのです。
VBA上でF5キーで起動するとうまく稼働します。
他のパソコン数台(全て2013)も同じです。
なにがおかしいのでしょうか。
Sub 印刷()
Dim i As Long
Dim myNo As Long
trueCount = Range("G39")
res = MsgBox(trueCount & "件全て印刷しますか?", vbYesNo + vbQuestion)
If res = vbYes Then
With Worksheets("印刷設定")
For i = 6 To 36
myNo = .Range("A" & i).Value
myDay = .Range("C" & i).Value
If Range("G" & i).Value = True Then
With Worksheets("TEST")
.Range("H2").Value = myNo
.Range("I2").Value = myDay
.PrintPreview '*******テスト用の行です
' .PrintOut Copies:=1, Collate:=True '*******実際用の行です
End With
End If
Next i
End With
End If
End Sub
|
|