vba - PrintOut メソッドはランダムなページを印刷します

Question

次のコードに割り当てられた Excel の印刷ボタンがあります。

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Sheets(Array("Cover", "1", "1-1", "2", "3", "4")).PrintOut , , 1
    Sheet1.PrintOut , , 1 'use this method to print all together at the end instead printing individually.
    Application.ScreenUpdating = True
End Sub

ただし、シートを印刷する代わりに、1 ページあたり 3 ～ 10 の値を持つ 100 のランダムなページの印刷を開始します (実際には意味がありません)。印刷範囲はすべてのシートで設定およびチェックされていますが、エラーの原因がよくわかりません。

何か案は？

ありがとうございます！