Código Delphi
[-] procedure TFrmSemaforo.SpeedButton2Click(Sender: TObject);
begin
if imprimir<>'Y' then
SHOWMESSAGE('ERROR: NO HAY INFORMACIÓN A IMPRIMIR')
ELSE
Begin
if todas.Checked then
begin
with verde do
begin
ShowPrintDialog := true;
PrinterSetup.Copies := 1;
AllowPrintToArchive := true;
DeviceType := 'PDF';
Reset;
TextFileName := ExtractFilePath(ParamStr(0)) +'semaforo.pdf';
Print;
end;
end;
end;
end;
este es el codigo, anexo en una imagen el error q me tira cuando trato de generar el PDF. La otra imagen es ya el pdf generado