|
▼Kein さん:
>Sub 一枚目印刷()
> Dim henji As Integer
>
> henji = MsgBox("プリンターの設定はお済ですか?", vbYesNo)
> If henji = 7 Then Exit Sub
> With Sheets("フォーム")
> .Range("A2:A31").Copy .Range("B2")
> .Range("K2:K31").Copy .Range("U2")
> Uion(.Range("B10:B12"), .Range("B21:B23"), _
> .Range("U10:U12"), .Range("U21:U23")).ClearContents
> .Range("L1").Copy .Range("U1")
> .Range("L12").Copy .Range("U12")
> .Range("L23").Copy .Range("U23")
> .Range("A1:V31").PrintOut Copies:=1, Printpreview:=True
> End With
>End Sub
>
>で、どうですか ?
遅くなって申し訳有りませんでした。
さっそくためしてみます皆様ありがとうございました^^
|
|