02-22-2008, 11:48
|
CaveMan2
Joined on 06-07-2007
Posts 12
|
|
|
Hello all:
I get a invalid paramater on the appprinter line and I do not see how.
Imports LPEPCLib
Public Class SSMain
Dim WithEvents ePrintEvents As EPrint
Const PRINTER_NAME = "MS ePrint"
Const DMPAPER_USER = 1
'Application Loading and Shut down
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ePrintEvents = New EPrint
ePrintEvents.UnlockSupport(SupportLockConstants.SUPPORT_GENERAL, "unlock code goes here")
Dim PrinterSpecifications As New EpnPrinterSpecifications
Dim MultiSaveOptions As New EpnMultiSaveOptions
Dim PrintersList As New EpnPrinterList
Dim nRet As Integer
ePrintEvents.AddPrinter(PRINTER_NAME, PrinterTypeConstants.PRINTER_OEM_NORMAL) ***** See Error Below *****
If nRet = 0 Then
'Prepare Save Options
MultiSaveOptions.UseSave = True
'MultiSaveOptions.SaveElementsCount = 1
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.FileName = "E:\Build\eRecords.tif"
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.Format = ePrintFileConstants.FILE_CCITT_GROUP4
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.DocumentType = DocumentTypeConstants.FT_SAVE_TYPE_RASTER
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.RasterOptions.BitsPerPixel = 1
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.RasterOptions.QFactor = 100
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.RasterOptions.StampBits = 24
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.RasterOptions.StampWidth = 128
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.RasterOptions.StampHeight = 128
MultiSaveOptions.PrinterSaveOptions(0).SaveOptions.RasterOptions.MultiPageFile = True
'Set OEM Printer Save Options
ePrintEvents.SetPrinterSaveOptions(PRINTER_NAME, MultiSaveOptions)
' Set Printer Conflict Solve
Dim RenamingOptions As New EpnRenamingOptions
ePrintEvents.GetDefaultRenamingOptions(RenamingOptions)
ePrintEvents.SetPrinterConflictSolving(PRINTER_NAME, OverwriteConstants.SAVE_APPEND_FAVOR_RENAME, RenamingOptions)
End If
|
|
|
|
|
Report
|
|
|
|