VBAの印刷について

質問

VBAでの質問です。

ある処理を施したあとにページ設定をして印刷するプログラムを作成しているのですが、なぜか同じものが2枚出力されてしまいます。
1枚だけ指定して印刷するにはどのようにコードを書けば良いかどなたか教えて下さい。お願いします。

With ActiveSheet.PageSetup 'ページ詳細設定
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesTall = 1 　　　　　　.FitToPagesWide = 1
　　　 End With
'ActiveSheet.PrintOut Worksheets(sheetname5).PrintOut

ActiveWorkbook.SaveAs Filename:=takiicode & "_" & Format(today, "yyyymmdd") & ".xls" '保存)
Workbooks(takiicode & "_" & Format(today, "yyyymmdd") & ".xls").Close SaveChanges:=True '終了

回答No.1

Wendy02

こんにちは。

質問の一枚だけを印刷するということは良く分からないけれども、コードは直しました。

Dim Fname As String
'Dim TakiiCode As Variant

With ActiveSheet.PageSetup 'ページ詳細設定
　　.PaperSize = xlPaperA4
　　.Zoom = False
　　.FitToPagesTall = 1
　　.FitToPagesWide = 1
End With
ActiveSheet.PrintOut Preview:=True 'プレビュー
Fname = TakiiCode & "_" & Format(Date, "yyyymmdd") & ".xls"
ActiveWorkbook.SaveAs Fname '保存
ActiveWorkbook.Close False

保存すれば、元のブックも終わってしまいます。