-
Re: Printout3 to print to default WINDOWS printer
SolidWorks uses the Windows printing settings for this. In .Net you can use System.Drawing.Printing.PrinterSettings.InstalledPrinters() to get the printers for the computer then iterate through them and use the IsDefaultPrinter property to find it.
-
Re: Printout3 to print to default WINDOWS printer
well, i am using VBA, so this does not work. Anyway, thanks for response.
-
Re: Printout3 to print to default WINDOWS printer
I can't try it, because I have only tablet now, but this should work.
http://www.andreavb.com/tip070005.html
or maybe even Printer.DeviceName
-
Re: Printout3 to print to default WINDOWS printer
Edited to make it work for 64 bit VBA:
Declare PtrSafe Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Sub main()
Debug.Print GetDefaultPrinter
End Sub
Private Function GetDefaultPrinter() As String
Dim strBuffer As String * 254
Dim iRetValue As Long
Dim strDefaultPrinterInfo As String
Dim tblDefaultPrinterInfo() As String
iRetValue = GetProfileString("windows", "device", ",,,", strBuffer, 254)
strDefaultPrinterInfo = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
tblDefaultPrinterInfo = Split(strDefaultPrinterInfo, ",")
GetDefaultPrinter = tblDefaultPrinterInfo(0)
End Function
-
-
-