Fórum Impressão em Matricial, Onde estou errando ? Muito estranho. #179603
03/09/2003
0
Galera Este erro e muito estranho estou usando a impressora citizen sx 220, a impressão de teste da mesma imprime normal, já imprimir também um texto pelo prompt do DOS e tudo esta normal, mas usando o componente TPrinterMatrix
Ex,
procedure TForm1.Button1Click(Sender: TObject);
begin
with PrinterMatrix1 do
begin
Alignment := TAlignment(taCenter);
FontType := TFontType(ftCondensed);
Bold := False;
Print(´.´ , 0);
Print(´´ , 0);
Print(´CARTORIO DO 3´+chr(167)+´ DE NOTAS OFICIO DE ARACRUZ´ , 0);
Print(´Rua Padre Luiz Parenze N´+chr(167)+´ 710 Centro Aracruz-ES´,0);
Print(´Reconheco como verdadeira a(s) firma (s) de´,0);
Print(´Jose Marcos Diirr Ricarto**************************´,0);
Print(´Philipe da Costa Ricarto***************************´,0);
Print(´***************************************************´,0);
Print(´Aracruz 08 de Abril de 2003 as 11:00:00 horas´,0);
Print(´Em testemunho_______ da Verdade__________________´,0);
end;
end;
O que a etiqueta me retorna e o seguinte
CARTORIO DO 3º DE NOTAS OFICIO DE ARACRUZ
Rua Padre Luiz Parenze Nº 710 Centro Aracruz-ES
Reconheco como verdadeira a(s) firma (s) de
Jose Marcos Diirr Ricarto**************************
Philipe da Costa Ricarto***************************
**********************************************
Aracruz 08 de Abril de 2003 as 11:00:00 horas
Em testemunho_______ da Verdade__________________
Mas algumas vezes somem diversos caracteres ficando assim- Obs. Erro Em vermelho
[color=darkred:4d3d2c508e]CARTRIO[/color:4d3d2c508e] DO 3º DE NOTAS OFICIO DE ARACRUZ
Rua Padre [color=red:4d3d2c508e]uiz[/color:4d3d2c508e] Parenze [color=red:4d3d2c508e]710 [/color:4d3d2c508e]Centro Aracruz-ES
[color=red:4d3d2c508e]Reconheo[/color:4d3d2c508e] como verdadeira a(s) firma (s) de
Jose MarcosDiirr Ricarto**************************
Philipe da Costa Ricarto***************************
**********************************************
Aracruz 08 de Abril de 2003 as 11:00:00 horas
Em [color=red:4d3d2c508e]testeunho[/color:4d3d2c508e]_______ da Verdade__________________
Também já tentei da maneira abaixo e ocorre o mesmo erro, a impressora não pode ser pois já testei como dito acima, onde estarei errando.
Veja o outro meio que já testei.
procedure TForm1.Button3Click(Sender: TObject);
var
Linha:integer;
Tamanho:integer;
Coluna:integer;
begin
Printer.Orientation := poportrait;
Printer.BeginDoc;
Printer.Canvas.Pen.Width := 5;
Printer.Canvas.Font.Name := ´Times New Roman´;
Printer.Canvas.Font.Size := 9;
Linha := 1;
Coluna:= 10;
Tamanho := Printer.Canvas.TextWidth(´a´);
Printer.Canvas.TextOut(0,Linha,´CARTORIO DO 3º OFICIO DE NOTAS DE ARACRUZ´);
Printer.Canvas.Font.Size := 8;
Printer.Canvas.TextOut(Coluna+45,Linha+30,´R. Padre Luiz Parenze nº 710 - Centro - Aracruz-ES´);
Printer.Canvas.Font.Size := 10;
Printer.Canvas.TextOut(25,Linha+50,´Reconheço como Semenhança a(s) firma (s) de´);
Printer.Canvas.TextOut(0,Linha+80,edit1.text);
Printer.Canvas.TextOut(0,Linha+110,edit2.text);
Printer.Canvas.TextOut(0,Linha+140,edit3.text);
Printer.EndDoc;
end;
Fico grato com qualquer ajuda,
Marcos Diirr
Ex,
procedure TForm1.Button1Click(Sender: TObject);
begin
with PrinterMatrix1 do
begin
Alignment := TAlignment(taCenter);
FontType := TFontType(ftCondensed);
Bold := False;
Print(´.´ , 0);
Print(´´ , 0);
Print(´CARTORIO DO 3´+chr(167)+´ DE NOTAS OFICIO DE ARACRUZ´ , 0);
Print(´Rua Padre Luiz Parenze N´+chr(167)+´ 710 Centro Aracruz-ES´,0);
Print(´Reconheco como verdadeira a(s) firma (s) de´,0);
Print(´Jose Marcos Diirr Ricarto**************************´,0);
Print(´Philipe da Costa Ricarto***************************´,0);
Print(´***************************************************´,0);
Print(´Aracruz 08 de Abril de 2003 as 11:00:00 horas´,0);
Print(´Em testemunho_______ da Verdade__________________´,0);
end;
end;
O que a etiqueta me retorna e o seguinte
CARTORIO DO 3º DE NOTAS OFICIO DE ARACRUZ
Rua Padre Luiz Parenze Nº 710 Centro Aracruz-ES
Reconheco como verdadeira a(s) firma (s) de
Jose Marcos Diirr Ricarto**************************
Philipe da Costa Ricarto***************************
**********************************************
Aracruz 08 de Abril de 2003 as 11:00:00 horas
Em testemunho_______ da Verdade__________________
Mas algumas vezes somem diversos caracteres ficando assim- Obs. Erro Em vermelho
[color=darkred:4d3d2c508e]CARTRIO[/color:4d3d2c508e] DO 3º DE NOTAS OFICIO DE ARACRUZ
Rua Padre [color=red:4d3d2c508e]uiz[/color:4d3d2c508e] Parenze [color=red:4d3d2c508e]710 [/color:4d3d2c508e]Centro Aracruz-ES
[color=red:4d3d2c508e]Reconheo[/color:4d3d2c508e] como verdadeira a(s) firma (s) de
Jose MarcosDiirr Ricarto**************************
Philipe da Costa Ricarto***************************
**********************************************
Aracruz 08 de Abril de 2003 as 11:00:00 horas
Em [color=red:4d3d2c508e]testeunho[/color:4d3d2c508e]_______ da Verdade__________________
Também já tentei da maneira abaixo e ocorre o mesmo erro, a impressora não pode ser pois já testei como dito acima, onde estarei errando.
Veja o outro meio que já testei.
procedure TForm1.Button3Click(Sender: TObject);
var
Linha:integer;
Tamanho:integer;
Coluna:integer;
begin
Printer.Orientation := poportrait;
Printer.BeginDoc;
Printer.Canvas.Pen.Width := 5;
Printer.Canvas.Font.Name := ´Times New Roman´;
Printer.Canvas.Font.Size := 9;
Linha := 1;
Coluna:= 10;
Tamanho := Printer.Canvas.TextWidth(´a´);
Printer.Canvas.TextOut(0,Linha,´CARTORIO DO 3º OFICIO DE NOTAS DE ARACRUZ´);
Printer.Canvas.Font.Size := 8;
Printer.Canvas.TextOut(Coluna+45,Linha+30,´R. Padre Luiz Parenze nº 710 - Centro - Aracruz-ES´);
Printer.Canvas.Font.Size := 10;
Printer.Canvas.TextOut(25,Linha+50,´Reconheço como Semenhança a(s) firma (s) de´);
Printer.Canvas.TextOut(0,Linha+80,edit1.text);
Printer.Canvas.TextOut(0,Linha+110,edit2.text);
Printer.Canvas.TextOut(0,Linha+140,edit3.text);
Printer.EndDoc;
end;
Fico grato com qualquer ajuda,
Marcos Diirr
Marcosdiirr
Curtir tópico
+ 0
Responder
Posts
12/11/2004
Eniorm
[color=darkred:dc40754f40]CARTRIO[/color:dc40754f40] DO 3º DE NOTAS OFICIO DE ARACRUZ
Rua Padre [color=red:dc40754f40]uiz[/color:dc40754f40] Parenze [color=red:dc40754f40]710 [/color:dc40754f40]Centro Aracruz-ES
[color=red:dc40754f40]Reconheo[/color:dc40754f40] como verdadeira a(s) firma (s) de
Jose MarcosDiirr Ricarto**************************
Philipe da Costa Ricarto***************************
**********************************************
Aracruz 08 de Abril de 2003 as 11:00:00 horas
Em [color=red:dc40754f40]testeunho[/color:dc40754f40]_______ da Verdade__________________
Comigo já aconteceu o mesmo problema, mas eu estava imprimindo direto na porta usando o WriteLn.....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)