Ayuda para enviar pdf por fax, usando Delphi 7

[[ArdiIIa]]

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; //Puntos  (1,5 centímetros)
        WordDocument1.PageSetup.TopMargin  := 42.55; //Puntos  (1,5 centímetros)
        WordDocument1.PageSetup.BottomMargin  := 56.7; //Puntos  (2 centímetros)

        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;


          (******* DATOS DE LA EMPRESA ****************)
          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;