[[20151120160637]]　『同じものを複数枚印刷したい。』（困ってます）　ページの最後に飛ぶ

『同じものを複数枚印刷したい。』（困ってます）

    MyStartNum = Application.InputBox("開始番号を入力してください。", _
             "番号の入力", "1", Type:=1)
If MyStartNum = False Then Exit Sub
MyEndNum = Application.InputBox("印刷終了番号を入力してください。", _
             "番号の入力", "1", Type:=1)
If MyEndNum = False Then Exit Sub
    For MyNum = MyStartNum To MyEndNum
        Range("ac2").Value = MyNum
        Range("A1:AK50").PrintOut
       Next MyNum
End Sub

以前ここで教わったものをずっと使わせてもらっています。ありがとうございます。
ac2に番号を入れてVlookup関数を使い、名前や番号を変更しながら一枚ずつ印刷してきましたが、今度は、1番は5枚　2番は10枚　3番は5枚　というように印刷する必要が出てきました。どのように変えたら印刷できるのか教えていただけませんでしょうか。
もしいろいろな枚数を印刷することが無理なら、全部10枚ずつ印刷するだけでもいいのです。よろしくお願いします。
ウインドウズ７　エクセル2010です。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

例えば、ActiveSheet.PrintOut Copies:=10 とすると、10部印刷されます。
質問前に、ヘルプを見てみましょうね。
（???） 2015/11/20(金) 16:22

コメント返信：

[ 一覧(最新更新順) ]

[[20151120160637]] 『同じものを複数枚印刷したい。』（困ってます） ページの最後に飛ぶ

[[20151120160637]]　『同じものを複数枚印刷したい。』（困ってます）　ページの最後に飛ぶ