comment utiliser la bibliothèque Faxcom ? VBA & C++

comment utiliser la bibliothèque Faxcom ? VBA & C++ - VB/VBA/VBS - Programmation

Marsh Posté le 24-04-2011 à 23:06:12    

Bonjour les amis,
 
Ce que je recherche :
 
Par exemple, si je veux envoyer un fax, je peux utiliser la bibliothèque de référence Faxcom 1.0 Type Library  
(c:\windows\system32\FXSCOM.dll)  
qui fait partie de Windows - comment l'utiliser ?
 
Autre exemple : je désire contrôler directement une imprimante HP, ou une imprimante PDF - quelle bibliothèque faut-il utiliser et comment ?
 
Je travaille essentiellement en VBA, mais s'il faut absolument passer par C++, je pourrais m'y remettre…
 
si vous avez des adresses web .. Tuto.. , ou des PDF n'import quoi  ;) , je suis intéressé  
 
Merci

Reply

Marsh Posté le 24-04-2011 à 23:06:12   

Reply

Marsh Posté le 25-04-2011 à 00:59:19    

Salut, pour les librairies voir par exemple http://silkyroad.developpez.com/VB [...] or/#LIII-A http://silkyroad.developpez.com/VB [...] quisition/ etc
ainsi que conseils sur http://forum.hardware.fr/hfr/Progr [...] 3276_1.htm
Pour le PDF si tu as Excel 2007 SP2 il intègre en natif le format de sauvegarde en PDF
sinon pour Acrobat Distiller (payant) voir http://www.developpez.net/forums/d [...] distiller/  
autrement PDFCreator et via le net tu aboutis à qqch comme


Option Explicit
 
Sub TstPdfCreator()
Dim JobPDF As Object
Dim sNomPDF As String
Dim sCheminPDF As String
     
    sNomPDF = "Essai.pdf"
    sCheminPDF = ThisWorkbook.Path & "\"
 
    Set JobPDF = CreateObject("PDFCreator.clsPDFCreator" )
 
    With JobPDF
        If .cStart("/NoProcessingAtStartup" ) = False Then
            MsgBox "Initialisation de PDFCreator impossible", vbCritical + vbOKOnly, "PDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave" ) = 1
        .cOption("UseAutosaveDirectory" ) = 1
        .cOption("AutosaveDirectory" ) = sCheminPDF
        .cOption("AutosaveFilename" ) = sNomPDF
         
        '   0=PDF, 1=Png, 2=jpg, 3=bmp, 4=pcx, 5=tif, 6=ps, 7=eps, 8=txt
        .cOption("AutosaveFormat" ) = 0
        .cClearCache
    End With
 
    ActiveWorkbook.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    'Fichier dans la file d'attente
    Do Until JobPDF.cCountOfPrintjobs = 1
        DoEvents
    Loop
    JobPDF.cPrinterStop = False
 
    'Attendre que la file d'attente soit vide
    Do Until JobPDF.cCountOfPrintjobs = 0
        DoEvents
    Loop
    JobPDF.cClose
    Set JobPDF = Nothing
End Sub


Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed