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