PC Toledo

Código: Selecionar todos

*****************
Function CHAMAIMP
*****************
LOCAL cPrinterName, cPrinterPort, cCopias
LOCAL aPrn    := GetPrinters(.t.,.f.)
LOCAL nResult := -1
LOCAL cMsg    := ""

PARA TAM,cARQ   // S=136 N=79

IF TAM=Nil
   TAM="S"
ENDIF

If Empty(aPrn)
   OBRIGA11() // mensagem na tela que tem que ter
   Return
EndIf

IF !EMPTY(cARQ)
   cFILE := cARQ
ELSE
   MsgInfo("Não foi possivel Gerar arquivo de impressão, Tente Novamente.","Aviso do Sistema")
   Return
ENDIF

nPrn:=New_PRINTSETUP( @cPrinterName, @cCopias )

Private oDlgHabla:=nil
MsgRun("Aguarde, Imprimindo...")

for i=1 to len(aPrn)
   IF aPrn[i,1] = cPrinterName
      cPrinterPort = aPrn[i,2]
      exit
   ENDIF
next

IF cPrinterPort#Nil  
   IF LEFT(UPPER(cPrinterPort),3)="LPT"  // se estiver em uma LPT uso a PrintFileRaw()
      FOR nI := 1 TO cCopias
         nResult := PrintFileRaw( cPrinterName, cFile, "Impressao Pelo Sistema" )
         IF nResult = -1
            cMsg = "Parametros Invalido, Favor Tentar Novamente"
         ELSEIF nResult = -2
            cMsg = "Falha na chamada da Impressora, Favor Verificar a Impressora"
         ELSEIF nResult = -3
            cMsg = "Falha ao Iniciar Impressão, Favor Verificar a Impressora"
         ELSEIF nResult = -4
            cMsg = "Falha ao Iniciar a Primeira Pagina, Favor Verificar a Impressora"
         ELSEIF nResult = -5
            cMsg = "Falha de Memoria da Impressora, Favor Verificar a Impressora"
         ELSEIF nResult = -6
            cMsg = "Não foi Possivel localizar o arquivo de Impressão, Favor Tentar Novamente"
         ENDIF
         IF len(alltrim(cMsg)) > 1
            Fim_Run()
            MsgInfo(cMsg,"Aviso do Sistema")
            Return
         ENDIF
      NEXT
   ELSE
      IF TAM="S"
         IF !EMPTY(cPrinterName)
            Imprime(cFILE,136,cPrinterName,cCopias)  // imprime usando a WIN32PRN
         ENDIF
      ELSE
         IF !EMPTY(cPrinterName)
            Imprime(cFILE,80,cPrinterName,cCopias)  // imprime usando a WIN32PRN
         ENDIF
      ENDIF
   ENDIF
ENDIF
Fim_Run()
RETURN NIL

*****************
Function OBRIGA11
*****************
IF MsgYesNo("ATENÇÃO !!! Não foi possivel localizar Nenhuma impressora Instalada no Windows, Deseja Instalar uma Agora ?","Aviso do Sistema")
   RunApplet_imp( "AddPrinter" )
Endif
Return(Nil)

FUNCTION RunApplet_imp( cApplet ) //CONFIGURA IMPRESSORA NO WINDOWS
ShellExecute("rundll32.exe","open","shell32.dll, SHHelpShortcuts_RunDLL "+cApplet,"2")
RETURN Nil