エクセル マクロ 印刷指定
マクロが解りません。色々調べてマクロの記録を使って、下記のマクロを作りました。
1枚目の印刷を2枚目、3枚目印刷として書き足してみました。
しかしエラーが出て2番目のシートからの印刷ができません。
Sub 連絡票印刷()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+p
'
Sheets("連絡票").Select
ActiveWindow.SelectedSheets.PrintOut From:=Sheets("連絡票").Range("p1").Value, To:=Sheets("連絡票").Range("q1").Value, Collate:=True, IgnorePrintAreas:=False
Sheets("予定表").Select
ActiveWindow.SelectedSheets.PrintOut From:=Sheets("予定表").Range("y1").Value, To:=Sheets("予定表").Range("z2").Value, Collate:=True, IgnorePrintAreas:=False
Sheets("配車表").Select
ActiveWindow.SelectedSheets.PrintOut From:=Sheets("配車表").Range("s1").Value, To:=Sheets("配車表").Range("t2").Value, Collate:=True, IgnorePrintAreas:=False
Dim str As String
str = Worksheets("連絡票").Range("r1")
Worksheets(str).Select
End Sub
いろいろ解らないなりに書き換えをしてみましたが、やっぱり2番目のシートから印刷ができません。
教えていただけませんでしょうか。
お礼
出来ました。 こんな単純な事質問して大変失礼しました。 ありがとうござました。