以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打印格式问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114836)
--  作者：扶风
--  发布时间：2018/2/23 15:43:00
--  打印格式问题
老师，现在设计的是点击按钮生成EXCEL表，然后微软的EXCEL表再打印，选择打印出PDF格式
能否直接点击按钮后直接打印成PDF格式的？跳过中间表格，或者是让生成的EXCEL表格无法修改。
--  作者：有点甜
--  发布时间：2018/2/23 15:47:00
--  

1、如果是报表，参考

 

http://www.foxtable.com/webhelp/scr/2930.htm

 

2、可以用vba处理

 

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\\会议签到表.xls")
    \'创建Excel文件对应的PDF文件
    wb.Saved = True
    wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, "d:\\会议签到表.pdf", MsExcel.XlFixedFormatQuality.xlQualityStandard, True, False,  System.Reflection.Missing.Value,  System.Reflection.Missing.Value, True,  System.Reflection.Missing.Value)
    app.quit
    msgbox("OK")
catch ex As exception
    msgbox(ex.message)
    app.quit
End try

 

3、可以用vba锁定表格的，如

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.Protect(Password:="foxtable")
App.Visible = True
Ws.PrintPreview
App.Quit