|
▼こすもす さん:
>以下のように記入していましたが、
>1枚目の印刷は罫線のみ印刷され、内容が印刷されません。
>2枚目は全部きちんと印刷されます。
>原因が解りません。
>記入がおかしいのでしょうか?
>宜しくお願い致します。
>
>
>Sub 印刷と保存()
>
> With Sheets("リスト").Range("B65536").End(xlUp)
> .Offset(1, 0).Value = Sheets("外出").Range("k3").Value
> .Offset(1, 1).Value = Sheets("外出").Range("k4").Value
略
> .Offset(1, 28).Value = Sheets("外出").Range("ay10").Value
> End With
↑
シート名「リスト」に対して書き込んでいます。
> ActiveWorkbook.Save
↑
アクティブなブックを上書き保存。
> Application.DisplayAlerts = True
> With Range("A1:BI35").Select
↑
ちょっと意味不明です。要らないのでは?
> ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True
アクティブなブックの選択されたシートを印刷。
単にアクティブになっているシートが違うのでは。
直接指定してやったらどうでしょう。
Sheets("リスト").PrintOut Copies:=2, Collate:=True
> End With
↑
意味不明なWithステートメントの閉めなので要らないのでは。
>End Sub
|
|