PC Toledo

Código: Selecionar todos

cArq := "rundll32.exe mshtml.dll,PrintHTML " + '"C:\NFCE\CUPOM.HTML"'

Código: Selecionar todos

FUNCTION Execute(cProgram, lEspera)
LOCAL oShell, lOk := .T., nStyle
   hb_Default(@lEspera,.T.)
   TRY
      oShell:=WIN_OleCreateObject( "WScript.Shell" )
   CATCH
      TRY
         oShell:=WIN_OleCreateObject( "WScript.Shell" )
      CATCH
         lOk := .F.
      END
   END
   IF lOk
      TRY
         /*
         intWindowStyle
         Description
         0  Hides the window and activates another window.
         1  Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
         2  Activates the window and displays it as a minimized window.
         3  Activates the window and displays it as a maximized window.
         4  Displays a window in its most recent size and position. The active window remains active.
         5  Activates the window and displays it in its current size and position.
         6  Minimizes the specified window and activates the next top-level window in the Z order.
         7  Displays the window as a minimized window. The active window remains active.
         8  Displays the window in its current state. The active window remains active.
         9  Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
         10 Sets the show-state based on the state of the program that started the application. 
         */
         nStyle:=0
         oShell:Run("%comspec% /c "+cProgram , nStyle, lEspera) 
      CATCH
        Alert("Erro executando "+cProgram, "Erro")
         lOk := .F.
      END
      oShell:=Nil
   ENDIF
RETURN lOk

Código: Selecionar todos

cProg:="rundll32.exe mshtml.dll,PrintHTML"
cPar1:="D:\Harbour\h-Banner\rotinas.html"
cPar2:=win_PrinterGetDefault()
*------------------------------------------------------------------
Executa a função execute como thread
hb_threadStart(@Execute(),cProg,cPar1,cPar2)
*------------------------------------------------------------------
* Procura a janela de diálogo de impressão do internet explorer
nJanela:=hwg_FindWindow(,"Imprimir")
*------------------------------------------------------------------
* Volta pra janela do sistema
wvg_SetForegroundWindow(hb_gtInfo( HB_GTI_WINHANDLE ))
hwg_SendMessage( hb_gtInfo( HB_GTI_WINHANDLE ),WM_SYSCOMMAND,SC_RESTORE,0)  
*------------------------------------------------------------------
* Aguarda 1 segundo, é importante para funcionar o comando abaixo.
Inkey(1)
*------------------------------------------------------------------
*simula o enter na janela Imprimir
hwg_KEYB_EVENT( VK_RETURN )
*------------------------------------------------------------------