Hello,
I am using macro on different PC to print drawing with printout3 api call. the problem is that i always need to print this document to the computer's default printer.
Is it possible to get the default windows printer name? as long as i know swmodel.printer returns or sets the printer for the document, so i just need the call to get default windows printer name. Anyone faced problem like this?
Regards,
E.P.
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.
well, i am using VBA, so this does not work. Anyway, thanks for response.
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
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
thank you
Thank you. Everything works fine now.
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