Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
24583 / 76791 ←次へ　｜　前へ→
【57556】Re:一括印刷マクロをくみたいのですが・・
回答  りった  - 08/9/2(火) 18:30 -
引用なし
パスワード
   こんな感じですかね。
ご提示頂いたコードが読みづらく、全部は読みきっていません。
また、印刷のテストまではしてません。

Sub printAll()
　Dim r As Range
　Dim wsIn As Worksheet
　Dim wsOut As Worksheet
　
　Set wsIn = Worksheets("Sheet1")
　Set wsOut = Worksheets("Sheet2")
　
　Set r = wsIn.Range("A65535").End(xlUp)
　
　Do While r.Row > 1
　　If r.Value = "印刷" Then
　　　wsIn.Range(r.Offset(0, 1), r.Offset(0, 1 + 17)).Copy
　　　wsOut.Range("A35").PasteSpecial xlPasteAll
　　　wsOut.PrintOut Copies:=1, Collate:=True
　　End If
　　Set r = r.Offset(-1, 0)
　Loop
End Sub
0 hits
▼ 【57553】一括印刷マクロをくみたいのですが・・ もっちゃん 08/9/2(火) 15:26 発言
【57556】Re:一括印刷マクロをくみたいのですが・・ りった 08/9/2(火) 18:30 回答≪
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
24583 / 76791 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free