- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 以下代码 预览打印 点打印会出现如图 ？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88181)
-- 发布时间：2016/7/28 13:48:00
-- 以下代码 预览打印 点打印会出现如图 ？
If Tables("销售单").current("单据状态")="已审核"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\销售单.xls")
Dim fl As String = ProjectPath & "Reports\\销售单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
App.Visible = False
App.Caption = "毛纱软件"
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
Else
messagebox.show("已审核的单据才能打印!","信息提示",MessageBoxButtons.ok, MessageBoxIcon.warning)
Return
End If
此主题相关图片如下：qq截图20160728134446.jpg
-- 发布时间：2016/7/28 14:06:00
--
1楼的出库单 能不能不显示
-- 发布时间：2016/7/28 15:06:00
--
预览模式没有办法。不然就直接打印