Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4386 / 76735

←次へ　｜　前へ→


	【77972】2010と2013で差込印刷の挙動が違います

りのふぁん - 16/2/21(日) 23:52 -


	引用なし

	パスワード

差込印刷すべく以下のようなものを作りました
これで自宅の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

2 hits

▼

【77972】2010と2013で差込印刷の挙動が違います りのふぁん 16/2/21(日) 23:52