Have you ever wanted to print to another printer than the default in Lotus Notes via LotusScript.<\/p>\n
If you do that in windows, windows will remember that printer the next time you print in Lotus Notes.<\/p>\n
This could be a problem if you have an Application that prints to a specific printer (ex. Labels).
\nBut if you want to print ex. a mail shortly there after, you don’t want it to use that printer.<\/p>\n
It all resets if you restart Lotus Notes, but that not an option. Its a windows problem, and not something Lotus Notes can do anything about.<\/p>\n
But i have found some code that prints, and sets the printer back to the original again.<\/p>\n
Credit goes to Michael R. Barrick.<\/p>\n
Here is the code for a button and a class that you can use if you have this problem.<\/p>\n
Button:<\/p>\n
Use “lib.dmc.print”<\/p>\n
Sub Click(Source As Button)
\n\tDim printing As New Printing()
\n\tCall printing.PrintDoc()
\nEnd Sub<\/p>\n
Class:
\n%REM
\n\tLibrary lib.dmc.print
\n\tCreated Sep 21, 2011 by Thomas Lindberg – T175260\/Laan-Spar
\n\tDescription: Comments for Library
\n%END REM
\nOption Public
\nOption Declare<\/p>\n
Declare 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<\/p>\n
%REM
\n\tClass Printing
\n\tDescription: Comments for Class
\n%END REM
\nClass Printing<\/p>\n
\tPublic Function PrintDoc()<\/p>\n
\t\tDim WshNetwork As Variant
\n\t\tDim WshPrinters As Variant
\n\t\tDim pArray() As String
\n\t\tDim strBuffer As String * 254
\n\t\tDim iRetValue As Long
\n\t\tDim DefaultPrinter As String
\n\t\tDim pCount As Integer
\n\t\tDim n As Integer
\n\t\tDim PrinterPath As Variant
\n\t\tDim ws As New NotesUIWorkspace<\/p>\n
\t\t‘ Retreive current default printer information
\n\t\tiRetValue = GetProfileString(“windows”, “device”, “,,,”, strBuffer, 254)
\n\t\tDefaultPrinter$ = Left(strBuffer, InStr(strBuffer, “,”) – 1)
\n\t\tPrint “Current default printer is ” & DefaultPrinter$<\/p>\n
\t\tSet WshNetwork = CreateObject(“WScript.Network”)
\n\t\tSet WshPrinters = WshNetwork.EnumPrinterConnections()<\/p>\n
\t\t‘count the connected printers
\n\t\tpCount% = 0
\n\t\tFor n = 1 To WshPrinters.Count() Step 2
\n\t\t\tIf wshPrinters(n) <> “” Then pCount%=pCount%+1
\n\t\tNext<\/p>\n
\t\t‘collect the names of the connected printers
\n\t\tReDim pArray(pCount%-1) As String
\n\t\tpCount% = 0
\n\t\tFor n = 1 To WshPrinters.Count() Step 2
\n\t\t\tIf wshPrinters(n) <> “” Then
\n\t\t\t\tpArray(pCount%) = wshPrinters(n)
\n\t\t\t\tpCount%=pCount%+1
\n\t\t\tEnd If
\n\t\tNext<\/p>\n
\t\tPrinterPath = ws.Prompt(4,”Select Printer”,”Choose a printer from the following list:”,””,pArray)
\n\t\tIf CStr(PrinterPath)=”” Then Exit function<\/p>\n
\t\tWshNetwork.SetDefaultPrinter CStr(PrinterPath)<\/p>\n
\t\tPrint “Default printer is now ” & CStr(PrinterPath)<\/p>\n
\t\tDim uidoc As NotesUIDocument
\n\t\tSet uidoc = ws.CurrentDocument
\n\t\tCall uidoc.Print( 1, 0, 0, False, PrinterPath )
\n\t\tWshNetwork.SetDefaultPrinter DefaultPrinter$
\n\t\tPrint “Default printer restored to ” & DefaultPrinter$<\/p>\n
\t\tSet WshNetwork = Nothing
\n\t\tSet WshPrinters = Nothing
\n\tEnd function<\/p>\n
End Class<\/p>\n","protected":false},"excerpt":{"rendered":"
Have you ever wanted to print to another printer than the default in Lotus Notes via LotusScript. If you do that in windows, windows will remember that printer the next time you print in Lotus Notes. This could be a … Continue reading