Ｐａｇｅ 828 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼印刷の繰返しについて mumumu 03/3/4(火) 11:29 ┗Re:印刷の繰返しについて つん 03/3/4(火) 12:40 ┗Re:印刷の繰返しについて mumumu 03/3/5(水) 15:55 ─────────────────────────────────────── ■題名 ： 印刷の繰返しについて ■名前 ： mumumu <mumumu@wa-o.net> ■日付 ： 03/3/4(火) 11:29 -------------------------------------------------------------------------
| いつもお世話になっております。 またわからないことがあるので（簡単なことだと思うのですが） 教えてもらえないでしょうか。 下に自動記録させたコードを載せましたが この作業を繰り返したいのです。 2行目のRange("a2")が次は"a3"になります。a4,a5・・・・と 繰り返したいのです。 A列にはデータが入っていますが空白になったら 印刷を中止させたいのです。 Sub Macro1() Range("C2").Select ActiveCell.FormulaR1C1 = Range("a2") ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub とても、単純な質問で申し訳ありませんがよろしくお願いいたします。 |
| mumumu さん、こんにちは >2行目のRange("a2")が次は"a3"になります。a4,a5・・・・と >繰り返したいのです。 >A列にはデータが入っていますが空白になったら >印刷を中止させたいのです。 こういうことかな？ Sub test() Dim lngRow As Long Dim i As Long With Worksheets("Sheet1") lngRow = .Range("a2").End(xlDown).Row For i = 2 To lngRow .Range("C2").FormulaR1C1 = .Cells(i, 1) .PrintOut Preview:=True ’とりあえずプレビューで・・ Next i End With End Sub A列のデータはどういうデータなんかな？ |
| ▼つん さん： お返事がおそくなりまして、ほんとうにすみません。 教えていただいたコードで希望どおりできました。 ありがとうございました。 >A列のデータはどういうデータなんかな？ 文字列のデータでした。^^; |