如何在ＥＸＣＥＬ中利用宏实现打印当前窗口

Question

如何在ＥＸＣＥＬ中利用宏实现打印当前窗口，如
Sub Macro1()
Dim a As Integer
Dim b As String
If Worksheets("sheet2").Cells(10, 2) = 1.55 Then
Worksheets("sheet2").Cells(10, 5) = 1.4681
Worksheets("sheet2").Cells(51, 8) = 1.4681
Worksheets("sheet2").Cells(51, 2) = Worksheets("sheet2").Cells(39, 2)
Worksheets("sheet2").Cells(51, 6) = (0.2 - 0.19) * Rnd() + 0.19
Worksheets("sheet2").Cells(51, 5) = Worksheets("sheet2").Cells(51, 6) * Worksheets("sheet2").Cells(51, 2)
在这儿加什么让它动行一次，打印一下当前ＥＸＣＥＬ窗口
End If
If Worksheets("sheet2").Cells(10, 2) = 1.31 Then
Worksheets("sheet2").Cells(10, 5) = 1.4675
Worksheets("sheet2").Cells(51, 8) = 1.4675
Worksheets("sheet2").Cells(51, 2) = Worksheets("sheet2").Cells(39, 2)
Worksheets("sheet2").Cells(51, 6) = (0.34 - 0.33) * Rnd() + 0.33
Worksheets("sheet2").Cells(51, 5) = Worksheets("sheet2").Cells(51, 6) * Worksheets("sheet2").Cells(51, 2)
End If
End Sub

Answer 1

这种问题自己录个宏就能解决的
ActiveWorkbook.PrintOut Copies:=1, Collate:=True