２sheetしか印刷されない

質問

一覧に印つけたｓｈｅｅｔを自動印刷するマクロを作成。自宅のＥＰ－８０３Ａで実行したら、問題なく印刷されたんですが、会社のプリンタ（EPSON、リコー）では、２ｓｈｅｅｔ分しか印刷されませんでした。多分、ＰＣ側の設定に問題あると思うんですが、どなたか解決方法を教えていただけませんか。よろしくお願いします。

※OKWaveより補足：「EPSON社製品」についての質問です。

回答No.1

goold-man

＞自宅のEP-803A

マクロはOfficeのエクセルですか？
Verは？
OSは？
ドライバは最新版ですか？

＞会社のプリンタ（EPSON、リコー）

製品型番は？
OSは？
ドライバは最新版ですか？
Officeはインストールされていますか？
verは？（マクロに互換性はない可能性）

自宅と会社の環境違いでは？

補足

自宅はMicrosoft Office Excel 2007で、以下のマクロ作りました。会社のはMicrosoft Office Excel 2013です。VBAの互換性か、PCのプリンタ設定のどちらかではないかと思っていますが、解決できません。

【自動印刷】

Sub 印刷()
Dim GYO As Long
Dim GYO2 As Long
Dim KANJA As Long
Dim KANJAMEI As String ' 0～2GB

KANJA = 1
For GYO = 2 To 100
If Cells(GYO, 2).Value <> "" Then
KANJA = KANJA + 1
End If
Next GYO

For GYO = 1 To KANJA
GYO2 = GYO + 1
If Cells(GYO2, 1).Value <> "" Then
KANJAMEI = Cells(GYO2, 3).Value
Sheets(KANJAMEI).PrintOut Copies:=1
End If
Next GYO
End Sub