|
お世話になっております。
ファイルが200こあります。
特定の複数シートを200こ一括で印刷したいのですがよろしくお願いします。
ファイルは全て同じ様式になっています。
ファイル名をae10:ae210を入力し、そのセルにハイパーリンクでジャンプするようにしました。そこで、1.ae10をクリック、2.そのファイル上で複数シートを選択、3.印刷、4.ファイルを閉じる という作業を自動記録でとりました。
それを、繰り返し次のファイルを印刷するためにfor..nextをくわえたのですが
うまく動きません。
2日前からVBAを勉強し始めた素人なのですがよろしくお願いいたします。
Sub Macro2()
Dim これは変数 As Long
For これは変数 = 1 To 200
Cells(39, これは変数 + 9).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets(Array("表紙", "様式1-1", "様式2-1")).Select
Sheets("様式2-1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.Close
Next これは変数
End Sub
|
|