Excel VBA質問箱 IV

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

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


38286 / 76732 ←次へ | 前へ→

【43586】Re:個票の作成マクロについて
回答  Kein  - 06/10/19(木) 15:07 -

引用なし
パスワード
   いちいち
>Sheet2に個票を作成
などしなくても、Sheet1をダイレクトに印刷したらどうですか ?
例えば1行目は項目であるとして、それを全てのページのタイトル行とし、
任意の人数分(3〜5に限定)の A:H列 にあるデータを印刷するとして・・

Sub MyPrint()
  Dim i As Long
  Dim Stp As Integer

  If WorksheetFunction.CountA(Range("A:A")) = 1 Then Exit Sub
  Do
   Stp = Application.InputBox("印刷するデータの人数を" & _
   vbLf & "3〜5の数値で入力して下さい", Type:=1)
   If Stp = False Then Exit Sub
  Loop While Stp < 3 Or Stp > 5
  With ActiveSheet.PageSetUp
   .PrintTitleRows = "$1:$1"
   .PaperSize = xlPaperA4
  End With
  On Error GoTo ELine
  For i = 2 To Range("A65536").End(xlUp).Row Step Stp
   Cells(i, 1).Resize(Stp, 8).PrintOut Copies:=1
  Next i
ELine:
End Sub

てな感じでどうかな・・?

0 hits

【43536】個票の作成マクロについて Non 06/10/18(水) 23:58 質問
【43542】Re:個票の作成マクロについて ichinose 06/10/19(木) 8:37 発言
【43619】Re:個票の作成マクロについて Non 06/10/20(金) 1:48 お礼
【43586】Re:個票の作成マクロについて Kein 06/10/19(木) 15:07 回答
【43618】Re:個票の作成マクロについて Non 06/10/20(金) 1:46 お礼

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