[已解决]求助：打印修改（VBA）

long826121

首先感谢各位兄弟姐妹哈！
打印成绩单出现问题了，一旦打印成绩单，预览出来了，但无法关闭，只能结束进程。

我要的效果是：单击“打印成绩单”，系统将首选进行预览，打印成绩单窗口”先退出，然后弹出预览窗口，然后单击预览窗口的“打印”，即可开始打印，如果不想打印，即可点击预览窗口的“关闭”按钮。（预览窗口所有按钮都要可用，方便调整打印效果） 打印.rar (43.14 KB, 下载次数: 7)

2012-7-1 20:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-7-1 20:27

打印.rar (28.57 KB, 下载次数: 27)

2012-7-1 20:27 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

打印.rar (28.57 KB, 下载次数: 27)

2012-7-1 20:27 上传

点击文件名下载附件

scsys1

Private Sub 打印成绩单_Click()
If MsgBox("是否打印成绩单？", vbQuestion + vbYesNo, "打印成绩单") = vbNo Then: Exit Sub
Unload Me
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$" & Range("A65536").End(xlUp).Row
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = 选择班级.Value & Space(1) & 选择班级.Value & Space(1) & "成绩单"
.CenterFooter = "第 & p 页，共 & n 页"
.LeftMargin = Application.InchesToPoints(0.748031496062992)
.RightMargin = Application.InchesToPoints(0.748031496062992)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.Orientation = xlLandscape
.PaperSize = xlPaperA4
.Order = xlDownThenOver
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub
增加了红色部分一句代码。