Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


69115 / 76734 ←次へ | 前へ→

【12139】Re:同じ様式のファイルを一括で印刷したい
質問  やまと  - 04/3/24(水) 19:46 -

引用なし
パスワード
   お世話になっております。

ファイルが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

0 hits

【12135】同じ様式のファイルを一括で印刷したい やまと 04/3/24(水) 18:12 質問
【12136】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/24(水) 18:27 発言
【12137】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/24(水) 18:49 お礼
【12139】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/24(水) 19:46 質問
【12142】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/24(水) 21:46 発言
【12147】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/25(木) 1:15 お礼
【12148】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/25(木) 8:16 発言
【12169】Re:同じ様式のファイルを一括で印刷したい ichinose 04/3/25(木) 16:57 発言
【12191】Re:同じ様式のファイルを一括で印刷したい やまと 04/3/26(金) 12:22 お礼

69115 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free