Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Actualizar esta página Imprimir letras de distintos colores con libreria printer
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
Anterior Mensaje Previo   Próximo Mensaje Siguiente
  #4  
Antiguo 16-10-2015
krewer krewer is offline
Miembro
NULL
  
Registrado: feb 2012
Posts: 39
Poder: 0
krewer Va por buen camino
Cita:
Empezado por ecfisa Ver Mensaje
Hola krewer.

Como bien te dice newtron, viendo el código vas a recibir respuestas mas concretas. Pero básicamente tenes que ajustar la propiedad Color de TFont.

Ejemplo:
Código Delphi [-]
...
const
  COLORS : array[0..2] of TColor = (clRed, clGreen, clBlue);
var
  prn : TPrinter;
  i   : Integer;
begin
  prn := TPrinter.Create;
  try
    prn.BeginDoc;
    for i := 0 to 2 do
    begin
      prn.Canvas.Font.Color := COLORS[i];
      prn.Canvas.TextOut(10, 10 + i * 150, Chr(Ord('A')+i));  // A, B, C
    end;
    prn.EndDoc;
  finally
    prn.Free;
  end;
end;

Saludos 
Código Delphi [-]
Printer.Orientation := poLandscape;
  Printer.BeginDoc;

  Printer.Canvas.Pen.Width := 5;
  Printer.Canvas.Font.Name := 'Times New Roman';
  Printer.Canvas.Font.Size := 12;

  Linha := 20;
  Coluna:= 20;
  Tamanho := Printer.Canvas.TextWidth('a');
  Fdata.Query_print.First;
  while not fdata.Query_print.Eof do
  begin
    if Linha = 20 then
    begin
      Coluna := 20;
      Printer.Canvas.TextOut(20,Linha,'Horario');
      Linha := Linha - Printer.Canvas.Font.Height + 25 ;
      Printer.Canvas.TextOut(Coluna,Linha,'Nombre');
      Coluna:= Coluna + (Tamanho * 30 );
      Printer.Canvas.TextOut(Coluna,Linha,'RUT');
      Coluna:= Coluna + (Tamanho * 20);

      Printer.Canvas.TextOut(Coluna,Linha,'1');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'2');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'2');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'3');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'4');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'5');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'6');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'7');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'8');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'9');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'10');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'11');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'12');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'13');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'14');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'15');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'16');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'17');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'18');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'19');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'20');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'21');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'22');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'23');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'24');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'25');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'26');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'27');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'28');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'29');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'30');
      Coluna:= Coluna + (Tamanho * 3);
      Printer.Canvas.TextOut(Coluna,Linha,'31');
      Coluna:= Coluna + (Tamanho * 3);


      Linha := Linha - Printer.Canvas.Font.Height + 30 ;
    end;
    Coluna := 20 ;



    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('nombre').AsString);
    Coluna:= Coluna + (Tamanho * 30 );
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('rut_t').AsString);
    Coluna:= Coluna + (Tamanho * 20);

    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d1').AsString);
    Coluna:= Coluna + (Tamanho * 3);

    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d2').AsString);
    Coluna:= Coluna + (Tamanho * 3);

    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d3').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d4').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d5').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d6').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d7').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d8').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d9').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d10').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d11').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d12').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d13').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d14').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d15').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d16').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d17').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d18').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d19').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d20').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d21').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d22').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d23').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d24').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d25').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d26').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d27').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d28').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d29').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d30').AsString);
    Coluna:= Coluna + (Tamanho * 3);
    Printer.Canvas.TextOut(Coluna,Linha,Fdata.Query_print.FieldByName('d31').AsString);
    Coluna:= Coluna + (Tamanho * 3);




    Linha := Linha - Printer.Canvas.Font.Height + 5 ;
    Fdata.Query_print.Next;
    if Linha > Printer.PageHeight-20 then
    Begin
      Printer.NewPage;
      Linha := 20;
    end;
Responder Con Cita
 

« Tema Anterior | Próximo Tema »


Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
como cambiar los colores de las letras julyus Varios 2 01-02-2008 22:20:39
Pintar serie de distintos colores en un tdbchart richy08 HTML, Javascript y otros 0 28-07-2007 20:52:02
Filas de distintos colores en un dbgrip. G.A.R.S Varios 2 21-05-2005 17:40:29
palabras con distintos colores en listbox Renees Varios 13 06-04-2005 20:48:55
Pintar de distintos colores los renglones de un TsDbGrid Ricsato Varios 3 01-02-2005 22:19:07


La franja horaria es GMT +2. Ahora son las 04:46:37.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi