エクセル マクロ 印刷指定

質問

マクロが解りません。色々調べてマクロの記録を使って、下記のマクロを作りました。
１枚目の印刷を２枚目、３枚目印刷として書き足してみました。
しかしエラーが出て２番目のシートからの印刷ができません。

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

いろいろ解らないなりに書き換えをしてみましたが、やっぱり２番目のシートから印刷ができません。
教えていただけませんでしょうか。

回答No.3

kkkkkm · ベストアンサー

> 配車表シート（上記"連絡票"とありますが）のr1
> セル値のシートを開く。
> ということをしたかったのでした。

str = Worksheets("配車表").Range("r1").Value
MsgBox str

にして正しいシート名になっているか確認してください。
エラーになった場合、エラーメッセージを書いていると分かりやすいこともあります。

お礼

何度もご教示ありがとうございました。
マクロの記録を、知識もないのに書き換えてしまったので、エラーが出ると何が何だかわからず、結果的にご指摘いただいた、
"セルの指定が
Range("y1").Value
Range("z2").Value
となってますがあってますでしょうか。"
のところに問題がありました。
印刷フォームを途中で変更してしまっていたみたいです。
("z2")ではなくなっていました。
基本を忘れていました。
この度は本当にありがとうございました。

回答No.4

kkkkkm

回答No.1回答No.3の補足です。

言いたいことは

それぞれセルの値が正しければ、正常に動きますので、セルの値を確認してください。
ということです。

それぞれのセルの値を　MsgBox で見てみてください。

回答No.2

imogasi

>マクロの記録を使って、
普通は「マクロの記録を使って」、は勉強に有効と思うが、印刷に関しては色んな引数がすべて出てきたりして、理解がややこしくなる。最低限、効いている引数（指定すべき引数）はなになのか、わかりにくい。
＝＝
この質問も回答者に読み解かせている質問だが、
やりたいことを文章で書けるようになるのが、必須だろう。
＞ActiveWindow.SelectedSheets
など、ActiveWindow.の問題にするべき課題か？
印刷するデータシート名、印刷する範囲、印刷形式など特殊事項や注意事項
をシートごとに文章で、列挙して質問すべくでしょう。
＝＝
掲示するVBAコードややり方について、ベテランならば、そうするやり方に合理性もあり、その線で回答すべきでしょうが、質問者は初心者らしく、こういう場合は自分のやった方法は、まずは封印するとかや参考に載せ、もくてきを別途目的を明確にして、一から聞く方がよいと、いつも感じる。
コードの添削は、技量的にも難しく、時間が掛かって大変なんだ。

回答No.1

kkkkkm

セルの指定が
Range("y1").Value
Range("z2").Value
となってますがあってますでしょうか。

補足

ありがとうございます。
連絡票シートのp1セル値からq1セル値までを印刷
予定表シートのy1セル値からz2セル値までを印刷
配車表シートのs1セル値からt2セル値までを印刷。
最後にDim str As String
str = Worksheets("連絡票").Range("r1")
Worksheets(str).Select
で、間違っていましたが、配車表シート（上記"連絡票"とありますが）のr1
セル値のシートを開く。
ということをしたかったのでした。
ご教示いただけると助かります。