Private Const SW_SHOWMINIMIZED = 2
Private Const PRINTER_NAME = "LEADTOOLS ePrint 5"
Dim ePrint As New ePrint
Private Declare Function ShellExecute Lib "shell32.dll"
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal
lpOperation As String, ByVal lpFile As String, ByVal lpParameters
As String, ByVal lpDirectory As String, ByVal nShowCmd As
Long) As Long
Private Sub MyConvertDoc(strFile As String)
Dim PrinterName As String
strPrinterName = """" + PRINTER_NAME +
""""
ShellExecute 0, "printto", strFile, strPrinterName,
0, SW_SHOWMINIMIZED
End Sub
Private Sub ConvertDocuments()
Dim szFiles(5) As String
' list of files to be converted
szFiles(1) = "C:\Document1.doc"
szFiles(2) = "C:\Document2.doc"
szFiles(3) = "C:\Document3.doc"
szFiles(4) = "C:\Document4.doc"
szFiles(5) = "C:\Document5.doc"
' convert them
ConvertDocuments szFiles, 5
End Sub
Private Sub ConvertDocuments(szFiles() As
String, nPages As Integer)
Dim fileName As String
Dim saveOptions As New EpnMultiSaveOptions
' change printer save options
ePrint.GetPrinterSaveOptions PRINTER_NAME, saveOptions
saveOptions.PrinterSaveOptions(0).saveOptions.DocumentType
= FT_SAVE_TYPE_DOCUMENT
saveOptions.PrinterSaveOptions(0).saveOptions.Format = FILE_PDF
saveOptions.UseSave = True
ePrint.SetPrinterSaveOptions PRINTER_NAME, saveOptions
For i = 1 To nPages
' change output document name
fileName = "c:\Document" & i & ".pdf"
saveOptions.PrinterSaveOptions(0).saveOptions.fileName = fileName
ePrint.SetPrinterSaveOptions PRINTER_NAME, saveOptions
' start Document conversion.
ePrint.StartDocumentConversion PRINTER_NAME, 0
' print to printer
MyConvertDoc szFiles(i)
' end document conversion.
ePrint.EndDocumentConversion PRINTER_NAME, 0
Next i
End Sub
Private Sub Convert_Click()
ConvertDocuments
End Sub
Private Sub Form_Load()
ePrint.UnlockSupport SUPPORT_GENERAL, UNLOCKKEY
End Sub
|