Pessoal! Desculpa a postagem exagerada, mas estou precisando de ajuda
com o seguinte.
Tenho um sistema pra restaurante que precisa imprimir em mini-
impressoras (bobina 40 colunas) e epson em geral utilizando bobina da
mesma forma.
Para tal, instalei a partir do windows 98/xp, etc um driver genéric
text only para cada impressora conectada a uma porta. Por exemplo:
Caixa - LPT1, BAR - COM1, COZINHA - COM2. Até aí ok...
Utilizei para imprimir rotinas como esta que segue:
procedure TfrmRec.ImprimeTroco(Sender: TObject);
Var
Linha, Linha_s: String;
X: Integer;
// nLinha: Integer;
Porta: String;
F: TextFile;
begin
Linha := '========================================';
Linha_s :='----------------------------------------';
// código para análise e impressão dos cupons
Porta := pCaixa;
AssignFile(F, Porta);
Rewrite(F);
// linha
WriteLn(F, Linha);
//Write(F, Chr(27)+'A');
WriteLn(F, dm.sqlConfig.FieldByName('G_NOME_IMPRESSAO').AsString);
//Write(F, Chr(27)+'B');
WriteLn(F, 'Telefone: ' + dm.sqlConfig.FieldByName
('G_TELEFONE').AsString);
// linha
WriteLn(F, Linha);
WriteLn(F, 'C O N T R A V A L E');
// linha
WriteLn(F, Linha);
WriteLn(F, 'Op:' + frmAbertura.Formatar(Operador, 15, True, ' '));
WriteLn(F, 'Data: ' + DateTimeToStr(Now));
WriteLn(F, '***** CUPOM:' + frmFrente.sqlMesasAbertas.FieldByName
('CODIGO').AsString + ' *****');
WriteLn(F, 'Valor: ' + sqlReceb.FieldByName('TROCO').AsString);
WriteLn(F, 'Assinatura: ____________________________');
// linha
WriteLn(F, Linha);
For x:=1 to lCaixa do WriteLn(F, ' ');
If (gCaixa = 'S') then
WriteLn(F, Chr(17));
CloseFile(F);
end;
O problema é que quando tento imprimir nas portas COM, ele sai um
monte de CCCCCCCCCCCCCCCCCC nas epson e simplismente não imprime nada
nas mini-impressoras (bematech, daruma, sweda, mecaf).
Pensei em utilizar um esquema diferente utilizando o AssignPrn, porém
ele utilizará o gerenciador de impressão do windows correto? E como
faço para setar a impressora certa.
Agradeço qualquer ajuda.
Leonardo Vinicius Freitag
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
