Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As _ Long, ByVal hPrinter As Long) As LongPrivate Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" _ (ByVal pPrinterName As String, phPrinter As Long, _ pDefault As PRINTER_DEFAULTS) As LongPrivate Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As _ Long) As LongPrivate Type PRINTER_DEFAULTS pDatatype As String pDevMode As Long pDesiredAccess As LongEnd Type' Display the Printer Properties dialog box.' The DeviceName argument is the DeviceName property of the Printer object or' an item in the Printers collection.' ParentHWnd is the handle of the window that owns the dialog box.'' Returns True if the function succedes.Function ShowPrinterProperties(ByVal DeviceName As String, _ ByVal ParentHWnd As Long) As Boolean Dim PrinterDef As PRINTER_DEFAULTS Dim hPrinter As Long Const PRINTER_ALL_ACCESS = &HF000C PrinterDef.pDesiredAccess = PRINTER_ALL_ACCESS If OpenPrinter(DeviceName, hPrinter, PrinterDef) Then ShowPrinterProperties = PrinterProperties(ParentHWnd, hPrinter) ClosePrinter hPrinter End IfEnd Function
Why the World Needs More Technology Leadership
February 7, 2023
As a fact, technology has touched every single aspect of our lives. And there are some technology giants in today’s world which have been frequently opined to have a strong influence on recent overall technological influence. Moreover, those tech giants have popular technology leaders leading the companies toward achieving greatness.
