では、VBAの基礎における最後のステップ、印刷に関するコードを作成していきます。また、名前を付けて保存する方法と印刷プレビューの方法も一緒に説明していきます。
では、下のとおりにコードを作成してください。

                        
        Sub 印刷()
            Dim Fname As Variant
            Dim NwBook As Workbook
            Set NwBook = Workbooks.Add
            Fname = Application.GetSaveAsFilename _
                (FileFilter:="Excel ファイル(*.xlsx),*.xlsx")
            If Fname <> False Then
                NwBook.SaveAs Fname
            End If
            
            With Worksheets("Sheet1")
                .Range("A1") = 1000
                .PrintOut
                .Range("B1") = "ワークシート"
                .PrintOut Preview:=True
            End With
        End Sub
                        
                    

このコードを実行すると、新規ブックの作成、名前付け保存、印刷、そして印刷プレビューが次々に処理されるのが分かります。では、このVBAコードの説明をしていきます。
まず、名前を付けて保存のダイアログボックスが返してくるファイル名を格納する変数をバリアント型で宣言します。

次に、Addメソッドで新規ブックを作成し、それをNwBookにして扱います。
名前を付けて保存のダイアログボックスを使うには、ApplicationオブジェクトのGetSaveAsFilenameメソッドを使います。このメソッドは、画面に名前を付けて保存のダイアログを表示させ、ユーザが入力したファイル名を選んだフォルダ名・ドライブ名と一緒にフルパスで返してきます。これを変数Fnameで格納しておきます。

この記述例のようにGetSaveAsFilenameの引数で、fileFilter：="Excel ファイル (*.xls)、*.xls"と指定すると、名前を付けて保存のダイアログボックスには、ファイルの拡張子が「.xls」のファイルだけしか表示されません。

次のIFステートメントでは、変数Fnameの値がFalseでなければファイル名が入力されていると判断し、ファイル名を変数FnameとしてSaveAsメソッドで保存します。

次の構文では、ワークシート「sheet1」のセルA1に1000を代入し、プリントアウト(印刷)を処理します。セルに値を入れているのは、Excelはデータのないワークシートは印刷を行わないからです。
また、PrintOutメソッドの引数にPreviewを設定し、Trueを設定すると直接印刷はせず、印刷プレビューを表示します。通常は、印刷プレビューを表示させ、印刷はユーザに直接実行させたほうがいいでしょう。