gruizc
30-08-2006, 18:59:46
Buenas Tardes,
Estoy trabajando con Delphi 7 version Intraweb con Report Builder 9, y estoy ejecutando el siguiente codigo en delphi para imprimir un reporte en report builder:
// INICIO CODIGO
procedure TIWFrm1.IWButton1Click(Sender: TObject);
var
Reporte : string;
v1 : string;
cont : Integer;
begin
randomize;
cont := cont + random(99999999);
v1 := IntToStr(cont);
ppReport1.AllowPrintToFile := True;
ppReport1.ShowPrintDialog := False;
ppReport1.DeviceType := 'PDF';
Reporte := 'C:\Reportes\Reporte' + v1 +'.pdf';
ppReport1.TextFileName := Reporte;
ppReport1.PDFSettings.Author := 'X';
ppReport1.PDFSettings.Title := 'X';
ppReport1.PDFSettings.OpenPDFFile := True;
ppReport1.Print;
end;
// FIN CODIGO
Este codigo ejecuta la impresion de un reporte en formato PDF , pero al imprimirlo por primera vez si me aparece en pantalla, pero cuando lo hago en una segunda ocasion me marca el siguiente error:
raised exception class EAccessViolation
with message Access violation at address 0048F950.
Read of address 00000004
Alguien ha tenido este tipo de errores???
Gracias
Saludos
GRuiz
Estoy trabajando con Delphi 7 version Intraweb con Report Builder 9, y estoy ejecutando el siguiente codigo en delphi para imprimir un reporte en report builder:
// INICIO CODIGO
procedure TIWFrm1.IWButton1Click(Sender: TObject);
var
Reporte : string;
v1 : string;
cont : Integer;
begin
randomize;
cont := cont + random(99999999);
v1 := IntToStr(cont);
ppReport1.AllowPrintToFile := True;
ppReport1.ShowPrintDialog := False;
ppReport1.DeviceType := 'PDF';
Reporte := 'C:\Reportes\Reporte' + v1 +'.pdf';
ppReport1.TextFileName := Reporte;
ppReport1.PDFSettings.Author := 'X';
ppReport1.PDFSettings.Title := 'X';
ppReport1.PDFSettings.OpenPDFFile := True;
ppReport1.Print;
end;
// FIN CODIGO
Este codigo ejecuta la impresion de un reporte en formato PDF , pero al imprimirlo por primera vez si me aparece en pantalla, pero cuando lo hago en una segunda ocasion me marca el siguiente error:
raised exception class EAccessViolation
with message Access violation at address 0048F950.
Read of address 00000004
Alguien ha tenido este tipo de errores???
Gracias
Saludos
GRuiz