imprimer depuis Excel

Question

depuis VB si je tapes ceci :
une erreur se produit dans le module <> ...   ... que faire ???

S'agit il d'un DLL manquant,d'une malprogrammation ???

le PC sur lequel je l'ai testé est equipé ,bien sur d'excel mais pas de VB,je me suis servi du créateur de progz d'installations pour le transmettre

code VB :

Private Sub Command2_Click()

Set Xl = New Excel.Application
    
    Xl.Visible = True
    
    'Ouvre un nouveau classeur
    Xl.Workbooks.Add
    
    'Transfert des valeurs
   
    Xl.Range("c1").Value = "Exemple"
        
    'Impression du graphique
    Xl.ActiveWorkbook.PrintOut

                  !!!
!! c'est ici que l'erreur se produit !!
       au niveau de l'impression
                  !!!

    'Fermeture du classeur puis d'Excel
    Xl.ActiveWorkbook.Close False 
    
Xl.Quit
    
End Sub

Merci d'avance pour toute l'aide que vous pourrez m'apporter !!!

hep · Answer

Voici le seul moyen que j'ai trouve pour y arriver

   Dim xlApp As Excel.Application
   Dim A As Excel.Workbook

   Set xlApp = New Excel.Application
   Set A = xlApp.Workbooks.Open(FilePath)
   A.PrintOut
   A.Close

FilePath est le chemin vers ton fichier

Imprimer depuis Excel

1 réponse

Discussions similaires