Hello Fivewin users /Antonio,
I want to inquire, Is there a way to print HTML file from Harbour + Fivewin application directly to default printer?
We want to streamline our system that is relying on a third party program to print HTML file.
We may also consider upgrading to the latest Harbour and Fivewin Lib if necessary.
Any suggestions will be highly appreciated.
Thank you very much,
Jose
Harbour Compiler: Harbour version 2.1.0
Fivewin Lib: FWH 11.06
Try ShellExecute(hWnd,"PrintTo",htmlfile,,0,1)
Antonio Ferreira
Antonio, thank you for the suggestions. I appreciate it.
I tried ShellExecute but it prints one copy only. It does also shows the printer dialog box. We need to print many copies without interruption.
ShellExecute may be a possible solution but we need to hide the printer dialog box and specify the number of copies to print.
Any ideas / suggestions?
Thank you,
Jose
Jose
Then I think you should try
IE := CreateObject("InternetExplorer.Application")
but I dont know the API may be:
IE:print()
With shellexecute you can set printer with PRN... functions and then SENDMESSAG... function to the printer dlg to press Print button. I never tried it but should work.
I dont have any other alternatives.
Antonio
Here I am posting a small function that works for me.
FUNCTION PrintHtml(cHtmlOrUrl,nCopies,lShow)
static oWnd:=nil, oBar, oIe
local i
default lShow:=.f.,nCopies:=1
if oWnd=nil
DEFINE WINDOW oWnd
DEFINE BUTTONBAR oBar OF oWnd
DEFINE BUTTON OF oBar;
PROMPT 'Print';
ACTION oIe:Do( "ExecWB", OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER )
oIe = TActiveX():New( oWnd, "Shell.Explorer" )
endif
oIe:Do( "Navigate2", cHtmlOrUrl)
do while alltrim(oIe:document:readyState) <> 'complete'
sysrefresh()
waitseconds(.5)
enddo
if lshow
oWnd:oClient = oIe
ShowWindow(oWnd, 1 ) && 1=Show,0=hide
ACTIVATE WINDOW oWnd
oWnd:Center()
else
for i=1 to nCopies
msgwait('Printing large receipt (' + alltrim(str(i)) + ' of '+alltrim(str(nCopies))+' copies).',,2)
oIe:Do( "ExecWB", OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER )
next i
endif
sysrefresh()
RETURN nil
There is still room for improvement for this function. If there is a way to send a command to the printer for the number of copies instead of using a loop will make this a lot better.
Thank you for the ideas!
Jose