marcelo marini

Prezados, Gostaria de saber se alguém de vcs conseguiu fazer funcionar a impressora de cheques com o componente AcbrChe, pois visualizei que ao chamar o método de impressão retorna msg de erro que o Comando é inexistente. Segue o trecho do fonte da impressão de cheque para Bematech q está na unit ACBrCHQBematech.pas procedure TACBrCHQBematech.ImprimirCheque; Var ValStr, DataStr : String ; begin if not fpDevice.EmLinha( 3 ) then { Impressora está em-linha ? } raise Exception.Create(ACBrStr('A impressora de Cheques '+fpModeloStr+ ' não está pronta.')) ; TravarCheque ; { Banco } fpDevice.EnviaString( #27 + #162 + fpBanco + #13 ) ; Sleep(100); { Valor } ValStr := IntToStrZero( Round( fpValor * 100), 11) ; ValStr := copy(ValStr,1,9)+','+copy(ValStr,10,2) ; fpDevice.EnviaString( #27 + #163 + ValStr + #13 ) ; Sleep(100); { Favorecido } fpDevice.EnviaString( #27 + #160 + Trim(fpFavorecido) + #13 ) ; Sleep(100); { Cidade } fpDevice.EnviaString( #27 + #161 + Trim(fpCidade) + #13 ) ; Sleep(100); { Data } DataStr := FormatDateTime('dd/mm/yy',fpData) ; DataStr := StringReplace(DataStr,DateSeparator,'/',[rfReplaceAll]) ; fpDevice.EnviaString( #27 + #164 + DataStr + #13 ) ; Sleep(100); DestravarCheque ; end; Grato