Excel VBA質問箱 IV

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

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


849 / 13645 ツリー ←次へ | 前へ→

【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 お礼[未読]

【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

【77973】Re:2010と2013で差込印刷の挙動が違います
発言  γ  - 16/2/22(月) 7:08 -

引用なし
パスワード
   If Range("G" & i).Value = True Then
の判定が正当におこなわれているか確認していますか?

そこを含め2カ所だけ、シートの特定されていないところがありますね。
(標準モジュールに書かれているのであれば)シートの特定がないと
アクティブシートが指定されたことになりますが、
その辺は影響がありませんか?

【77981】Re:2010と2013で差込印刷の挙動が違います
お礼  りのふぁん  - 16/2/22(月) 23:11 -

引用なし
パスワード
   ありがとうございました。
シートを特定したら正しい挙動になりました!

なんで2010では特定しなくてもよかったのかは謎のままですが。

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