主题：打印格式问题

老师，现在设计的是点击按钮生成EXCEL表，然后微软的EXCEL表再打印，选择打印出PDF格式

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