cambiar fuentes de imprexion
Publicado por miguel (8 intervenciones) el 11/03/2009 00:02:20
utilizo este codigo para impriimir y me funciona mi problema es como podria cambiar las funtes de impresion para que fuesen de un tamaño mas pequeño gracias os dejo el codigo
var x, y: Integer;
begin
Printer.BeginDoc;
with Printer.Canvas do
begin
x := Printer.PageHeight div 50;
y := Printer.PageWidth div 15;
Font.Name:= 'arial';
Font.Height:= x*2;
Font.Color:= clblack;
TextOut (x*1,y*3 ,'nº '+ dbedit1.Text+' ' +'telefono'+ dbedit2.Text+' ');
TextOut (x*1,y*4 ,'nº '+ dbedit3.Text+' ' +'telefono'+ dbedit4.Text+' ');
Printer.EndDoc;
end;
me vastaria con poder modificar las fuentes o si ay algun systema mejor para hacelo gracias un saludo
var x, y: Integer;
begin
Printer.BeginDoc;
with Printer.Canvas do
begin
x := Printer.PageHeight div 50;
y := Printer.PageWidth div 15;
Font.Name:= 'arial';
Font.Height:= x*2;
Font.Color:= clblack;
TextOut (x*1,y*3 ,'nº '+ dbedit1.Text+' ' +'telefono'+ dbedit2.Text+' ');
TextOut (x*1,y*4 ,'nº '+ dbedit3.Text+' ' +'telefono'+ dbedit4.Text+' ');
Printer.EndDoc;
end;
me vastaria con poder modificar las fuentes o si ay algun systema mejor para hacelo gracias un saludo
Valora esta pregunta
0