LiveCode Forums.

Code: Select all

on mouseUp
   set the printerName to "idkwvmwprn003\HL65"
   print card 1
end mouseUp

Code: Select all

idkwvmwprn003.WROK.NET\HL65

Code: Select all

on mouseUp
   set the printerName to "idkwvmwprn003\\HL65"
   print card 1
end mouseUp

Code: Select all

on mouseUp
   set the printerName to "idkwvmwprn003.WROK.NET\\HL65"
   print card 1
end mouseUp

Code: Select all

on mouseUp
   --first let's find what printer is currently set as default so that we can
   --override the default and then put it back again afterwards
   put the cGetDefaultPrinter of me into tVBScript
   do tVBScript as "vbscript"
   put the result into tResult
   --answer "The current default printer is" && tResult
   set the cStoredDefaultPrinter of me to tResult
   --now we have saved the current default printer, let's override it with the networked one
   --we get the VBScript which contains placeholder
   put the cSetNetworkPrinter of me into tVBScript
   --this is the hardcoded UNC path to the chosen printer
   put "\\idkwvmwprn003\HL65" into tPrinterName
   --replace the placeholder with the correct printer name
   replace "<~%printernameGoesHere%~>" with tPrinterName in tVBScript
   do tVBScript as "vbscript"
   put the result into tResult
   if tResult is not empty then
      answer "Something went wrong:" && tResult
      --you should handle errors more gracefully than this
      exit to top
   end if
   --try your printing
   print card 1
   --now we can set the original printer back as default
   put the cSetNetworkPrinter of me into tVBScript
   --we got the script with placeholder back
   put the cStoredDefaultPrinter of me into tPrinterName
   --replace the placeholder with the correct printer name stored from before
   replace "<~%printernameGoesHere%~>" with tPrinterName in tVBScript
   do tVBScript as "vbscript"
   put the result into tResult
   if tResult is not empty then
      answer "Something went wrong:" && tResult
      --you should handle errors more gracefully than this
   end if
end mouseUp

Code: Select all

Set oShell = CreateObject("WScript.Shell")
strValue = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
strPrinter = oShell.RegRead(strValue)
strPrinter = Split(strPrinter, ",")(0)
result = strPrinter

Code: Select all

Option Explicit
On Error Resume Next
Dim objNetwork, strUNCPrinter,strError,result
strUNCPrinter = "<~%printernameGoesHere%~>"
Set objNetwork = CreateObject("WScript.Network") 
Set objAdd = objNetwork.AddWindowsPrinterConnection(strUNCPrinter)
If Not objAdd Then
    strError = "Error connecting printer"
Else
    objNetwork.SetDefaultPrinter strUNCPrinter
    strError = ""
End If
objNetwork = Nothing
objAdd = Nothing
result = strError