Excel VBA質問箱 IV

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

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


4385 / 76734 ←次へ | 前へ→

【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

4 hits

【77972】2010と2013で差込印刷の挙動が違います りのふぁん 16/2/21(日) 23:52 質問[未読]
【77973】Re:2010と2013で差込印刷の挙動が違います γ 16/2/22(月) 7:08 発言[未読]
【77981】Re:2010と2013で差込印刷の挙動が違います りのふぁん 16/2/22(月) 23:11 お礼[未読]

4385 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free