Конвертировать книгу Excel 2003 в pdf - PullRequest
1 голос
/ 29 ноября 2011

снова я убиваю ваше время.Я должен сделать приложение, которое конвертировать книгу в 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 или ошибка времени выполнения и т. Д. Я думаю, это может быть связано с ссылкой в ​​книге.Может ли кто-нибудь сказать мне, как исправить этот код, а также настроить формат бумаги и т. Д.Заранее спасибо ..........

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...