La idea es que has de generar gráficos de tus PDF.
Una vez generados los gráficos, se envían mediante fax (por supuesto instalado en la máquina).
A ver si te sirve:
Código Delphi
[-]
procedure TFormPresupuesto_Prov.Generar_Fax(Sender: TObject);
Var
sr: TSearchRec;
OpenFileBmp,SaveFileName,Anchor : OleVariant;
Fax,FaxDoc: Variant;
begin
TRY
IsFax := True;
Prepare_Documento;
WordDocument1.Connect;
WordDocument1.PageSetup.Orientation := wdOrientLandscape;
WordDocument1.PageSetup.LeftMargin := 42.55; WordDocument1.PageSetup.TopMargin := 42.55; WordDocument1.PageSetup.BottomMargin := 56.7;
SaveFileName := ExtractFilePath(Application.Exename) + 'FAX\FAX.DOC';
if findFirst(ExtractFilePath(Application.Exename) + 'FAX\*.bmp',faAnyFile ,sr) = 0 THEN
REPEAT
OpenfileBMP := ExtractFilePath(Application.Exename) + 'FAX\' + SR.Name;
Anchor := DataModulePedProv.WordDocument1.Words.Last;
WordDocument1.InlineShapes.AddPicture(OpenFileBmp,EmptyParam,EmptyParam,Anchor);
WordDocument1.InlineShapes.Item(1).ScaleHeight := 95;
WordDocument1.InlineShapes.Item(1).ScaleWidth := 95;
until FindNext(sr) <> 0;
FindClose(sr);
WordDocument1.SaveAs2000(SaveFileName);
WordDocument1.Close;
WordDocument1.Disconnect;
Fax := CreateOleObject('FaxServer.FaxServer');
Fax.Connect(FormMain.HostName);
FaxDoc := Fax.CreateDocument(ExtractFilePath(Application.Exename) + 'FAX\FAX.DOC');
if IBQueryPresupuesto_Cab.FieldByName('SYS_EMPRESA').AsString = 'S' then
FaxDoc.FaxNumber := IbQueryContactos.FieldByName('emp_fax').AsString
else
FaxDoc.FaxNumber := IbQueryContactos.FieldByName('fax').AsString ;
FaxDoc.RecipientName := IbQueryContactos.FieldByName('emp_nombre').AsString;
FaxDoc.SenderName := 'TU EMPRESA';
FaxDoc.SenderCompany := 'NOMBRE EMPRESA';
FaxDoc.SenderDepartment := 'GESTIÓN Y DESARROLLO';
FaxDoc.DisplayName := 'PETICION DE PRESUPUESTO';
FaxDoc.Send;
Fax.Disconnect;
Fax := NULL;
FaxDoc := NULL;
finally
IsFax := False;
End;
Aviso('FAX ENVIADO CORRECTAMENTE');
end;