Question

我再次扼杀你的时间。我必须制作一个将工作簿转换为pdf的应用程序我正在使用PDF995。但我不知道如何配置纸张尺寸，因为有些纸张大约需要150英寸。它也不是片状转换。我希望它按照工作表名称创建pdf。以下是我正在使用的代码示例。

Dim objExcel As Microsoft.Office.Interop.Excel.Application
Dim objWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim totalWorkSheets As Microsoft.Office.Interop.Excel.Worksheet

Public Sub PrintByName(ByVal s As Worksheet)


    Dim myprinter As String
    Dim printer_name As String
    printer_name = "PDF995"


    If System.IO.Directory.Exists("D:\" + objWorkBook.Name) Then
    Else
        System.IO.Directory.CreateDirectory("D:\" + objWorkBook.Name)
    End If

    myprinter = objExcel.ActivePrinter
    objExcel.ActivePrinter = printer_name
    Thread.Sleep(1000)
    s.PrintOut(Preview:=False, ActivePrinter:=printer_name, PrintToFile:=True,PrToFileName:=s.Name) 
    System.Threading.Thread.Sleep(2500)
    objExcel.ActivePrinter = myprinter
End Sub

我知道我传递的文件名不起作用，但我无法找到方法。另外我应该如何配置纸张大小等。我尝试了许多试用版应用程序，但大多数都给出了错误，如无法打开excel或运行时错误等。我认为这可能是由于工作簿中的链接。任何人都可以告诉我这个代码是如何正确的，并配置paperize等。提前致谢..........

将Excel 2003工作簿转换为pdf Sheet

0 个答案: