Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24524 / 76732

←次へ　｜　前へ→


	【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

≪


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24524 / 76732

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free