Delphi - cambiar fuentes de imprexion

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- OpenGL
- Algoritmo Marching Cube
- Acceso Datos Delphi

RE:cambiar fuentes de imprexion

Publicado por E.T. (1107 intervenciones) el 11/03/2009 00:57:23
Probaste con Size

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.Size:=10;//*****************************************************
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;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:cambiar fuentes de imprexion

Publicado por miguel (8 intervenciones) el 11/03/2009 09:09:46
ya probe a cambiar el size pero no me imprime con un valor inferiol a 40
si ubiese otra forma de cambiar las fuentes me lo puedes explicar gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar