Ver Mensaje Individual
  #2  
Antiguo 01-04-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.015
Reputación: 22
oscarac Va por buen camino
podrias colocar un poco del codigo?

cuando yo quiero imprimir por ejemplo titulos hago esto

Suponiendo que usas quickreport

en el quickreport pongo un tqrlabel

en el form donde invovo al reporte hago algo como esto

Código Delphi [-]
if qrMayorTotalizado = Nil then
  qrMayorTotalizado := TqrMayorTotalizado.Create(Nil);
  with qrMayorTotalizado do
  begin
    qrlEmpresa.Caption := dmGlobal.g_NombreEmpresa;
    qrlRuc.Caption := dmGlobal.g_RUCEmpresa;
    qrlTitulo.Caption := 'Saldos Tabulados';
    qrlSubTitulo.Caption := 'Mensual del mes de ' + NombreMes (StrtoInT (dmGlobal.g_Mes)) + ' - ' + Copy (dmGlobal.g_Periodo,1,4);
    qrlSubTitulo2.Caption := 'En ' + MsgMoneda(rgMoneda.ItemIndex);
    if TMayorTotalizado.IsEmpty then
      MessageDlg('No existen Movimientos en el mes',mtWarning,[mbRetry],0)
    else
      preview;
  end;

espero te sirva
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita