Bem Vindo Visitante Lista de Usuários

 Todos os Fórums
  Business Intelligence

Enviar para a impressoraImprimir   

Subject Impressão de comprovante e carnê
Mensagem do Enviar e-mail Abrir o Perfil do usuário DANIELCOST DANIELCOST em 10/8/2018 as 12:52 hs
Local: MG   Registrada: 6/6/2017  Postagem: 2
Boa tarde, estou tentando fazer uma função de impressão de comprovante de pagamento e impressão de carnê de pagamento, mas não estou conseguindo. Adicionei uma nova impressora, uma Bematech 4200TH, que é plugada em uma entrada USB. Já consigo mandar em uma impressora antiga que está na porta LPT3, só que a nova ficou instala em uma porta "Bematech_COM3", coloco isso no código e não funciona, no gerenciador de dispositivos ela está descrita como conectada na porta "COM3" coloquei no código também e nada. Testei a impressora para impressão de outras coisas e ela funciona normalmente. O código "If ((_cFilCli == "24") .OR. (_cFilCli == "04")) " é que se for executada das filiais "24" ou "04" ele imprimi na porta "LPT3", se não for vai imprimir na outra que estou tentando colocar. Segue abaixo código:

User Function Rec()
Private aOrd                := {}
Private CbTxt            := ""
Private cDesc1             := "Este programa tem como objetivo imprimir o recibo "
Private cDesc2             := "de pagamento dos titulos no momento da baixa."
Private cDesc3             := ""
Private cPict             := ""
Private lAbortPrint      := .F.
Private limite           := 40
Private tamanho          := "P"
Private nomeprog         := "REC" // Coloque aqui o nome do programa para impressao no cabecalho
Private nTipo            := 18
Private aReturn          := { "Zebrado", 1, "Administracao", 1, 2, 1, "", 1}
Private nLastKey         := 0
Private titulo             := "Recibo"
Private nLin1             := 20
Private cbtxt            := Space(10)
Private cbcont           := 00
Private CONTFL           := 01
Private m_pag            := 01
Private imprime            := .T.
Private cString           := "SE5"
Private _cFilCli := AllTrim(SE1->E1_FILIAL)


Close(oDlg)
/*Set(24,"BematechUSB",.F.)          
PrinterWin(.F.)                    
PreparePrint(.T.,"",.F.,"BematechUSB")     
InitPrint(1)     

If ((_cFilCli == "24") .OR. (_cFilCli == "04"))                         
     Set(24,"LPT3",.F.)
     PrinterWin(.F.)
     PreparePrint(.F.,"",.F.,"LPT3")     //Prepara a impressao na porta especificada .T. via windows
     InitPrint(1)
Else
     MsgBox("Sucesso!","ATENCAO","INFO")
     Set(24,"COM3",.F.)
     PrinterWin(.F.)
     PreparePrint(.F.,"",.F.,"COM3")     //Prepara a impressao na porta especificada
     InitPrint(1)
EndIf


nTipo := If(aReturn[4]==1,15,18)

RptStatus({|| U_ImpRec() },Titulo)

Return


Para participar do Fórum você precisa efetuar login primeiro
Caso você não esteja registrado registre-se para participar do fórum

 Mudar para Fórum