|
いちいち
>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
てな感じでどうかな・・?
|
|