打印一个Excel文件（仅A4一页）：
直接打印是可以的
预览并打印不显示表，必须点状态栏闪动的Excel图标才能显示表。
我的问题是，预览打印如何直接显示表？
请赐教，谢谢！
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file1)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
wb.saved = True
App.DisplayAlerts = False
App.Visible = True
If e.Form.Controls("RdoButP").checked Then
If _Mrdyj <> "" Then '存在默认打印机(已读入到 _Mrdyj全局本来)
Ws.PrintOut(Preview:=False,ActivePrinter:=" & _Mrdyj & ") '直接打印;
Else
Ws.PrintOut(Preview:=True) '预览后打印
End If
Else
Ws.PrintPreview(True)
' Ws.PrintOut(Preview:=True)
End If
App.Quit
加好友 
发短信
Post By：2020/3/15 10:49:00 [显示全部帖子]
