Brian Rathbone wrote:
If you are going to go that route, you can use shellexecute with the
print command to have the local client print it without any extra steps.
In case you wanted to try this, here is a quick but imperfect example:
const SW_NORMAL = 1
Const ERROR_FILE_NOT_FOUND = 2
Const ERROR_PATH_NOT_FOUND = 3
Const ERROR_BAD_FORMAT = 11
Const SE_ERR_ACCESSDENIED = 5
Const SE_ERR_ASSOCINCOMPLETE = 27
Const SE_ERR_DDEBUSY = 30
Const SE_ERR_DDEFAIL = 29
Const SE_ERR_DDETIMEOUT = 28
Const SE_ERR_DLLNOTFOUND = 32
Const SE_ERR_FNF = 2
Const SE_ERR_OOM = 8
Const SE_ERR_PNF = 3
Const SE_ERR_SHARE = 26
dim i as integer
dim f as folderitem
f = getfolderItem("c:\RB Path Demo1.pdf")
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(hwnd As integer, lpOperation As CString, lpFile As CString,
lpParameters As CString, lpDirectory As CString, nShowCmd As integer) As
integer
i = ShellExecute(self.winHWND,"print",f.absolutepath,"","",SW_NORMAL)
select case i
Case ERROR_FILE_NOT_FOUND
msgbox "Error: File not found."
Case ERROR_PATH_NOT_FOUND
msgbox "Error: Path not found."
Case ERROR_BAD_FORMAT
msgbox "Error: Bad format."
Case SE_ERR_ACCESSDENIED
msgbox "Error: Access denied."
Case SE_ERR_ASSOCINCOMPLETE
msgbox "Error: File association is incomplete."
Case SE_ERR_DDEBUSY
msgbox "Error: DDE busy."
Case SE_ERR_DDEFAIL
msgbox "Error: DDE Failure."
Case SE_ERR_DDETIMEOUT
msgbox "Error: DDE timeout."
Case SE_ERR_DLLNOTFOUND
msgbox "Error: DLL not found."
Case SE_ERR_FNF
msgbox "Error: File not found."
Case SE_ERR_OOM
msgbox "Error: Out of memory."
Case SE_ERR_PNF
msgbox "Error: Path not found."
Case SE_ERR_SHARE
msgbox "Error: Sharing violation."
end select
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
