Dúvida na impressão de cheques com bematech DP20

[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

[Daniel Simoes]

Marcelo,

Em qual linha exatamente ocorre o erro ?