|
Sheets("フォーム").Range("**")の書式ごとRange("**")にコピーしたいのですがどうすればいいでしょうか?
Sub 一枚目印刷()
Sheets("フォーム").Range("B1") = Range("B1")
Sheets("フォーム").Range("B2:B9").Value = Range("A2:A9").Value
Sheets("フォーム").Range("B12") = Range("B12")
Sheets("フォーム").Range("B13:B20").Value = Range("A13:A20").Value
Sheets("フォーム").Range("B23") = Range("B23")
Sheets("フォーム").Range("B24:B31").Value = Range("A24:A31").Value
Sheets("フォーム").Range("U1") = Range("L1")
Sheets("フォーム").Range("U2:U9").Value = Range("K2:K9").Value
Sheets("フォーム").Range("U12") = Range("L12")
Sheets("フォーム").Range("U13:U20").Value = Range("K13:K20").Value
Sheets("フォーム").Range("U23") = Range("L23")
Sheets("フォーム").Range("U24:U31").Value = Range("K24:K31").Value
henji = MsgBox("プリンターの設定はお済ですか?", vbYesNo)
If henji = vbNo Then Exit Sub
Set hani = Worksheets("フォーム").Range("A1:V31")
'hani.PrintOut
hani.PrintPreview
End Sub
|
|