Here is the snippet...
Dim tObjPrinter As Object
Private mObjPrintMaster As Object
Try
mObjPrintMaster = CreateObject("PrintMaster.PrintMaster.1")
tObjPrinter = CreateObject("Printer.Printer.1")
mObjPrintMaster.PrinterGet("",PrinterName
mObjPrintMaster.DefaultPrinter = mStrPrinterName
mObjPrintMaster.PrinterSet(tObjPrinter)
Catch ex As Exception
End Try
No comments:
Post a Comment