| |
▼青空 さん：
>別なシートは、印刷用シートで固定です。
>コピー元のデータを一行ずつ別なシートに
こんな感じでできると思います。
Sub test()
Dim myR As Range
Dim r As Range
With Sheets("Sheet1")
Set myR = .Range(.Cells(2, "A"), .Cells(Rows.Count, 1).End(xlUp))
End With
For Each r In myR
With Sheets("印刷用シート")
With .Range("B2")
.Value = r.Offset(, 2).Value
.Offset(-1, 1).Value = r.Value
.Offset(, 1).Value = r.Offset(, 1).Value
End With
'.PrintOut
.PrintPreview
End With
Next
End Sub
>上書きコピーしてハガキサイズで印刷する方法はありますか。
これなら、印刷用シートのレイアウトとプリンターの設定が必要です。
自作するより無料のはがきソフトやワードの差し込み印刷の方が早くないですか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
