Excel et VB6

Question

Salut
Comment imprimer un fichier Excel sous vb6 ?
J'ai créer une feuille Excel a partir de mon appli, j'eregistre le fichier .xls dans un répertoire mais comment faire pour le récuperer et l'imprimer ?

Merci pour vos réponses

cs_wape · Answer

Private Sub cmdImprimer_Click()

Dim oXlApp As Excel.Application
Dim oXlWbk As Excel.Workbook

Set oXlApp = CreateObject("Excel.Application")
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")

With oXlWbk
'Imprimer tout le classeur
.PrintOut
'Imprimer la feuille "Feuil1"
.Worksheets("Feuil1").PrintOut
.Close
End With

oXlApp.Quit
Set oXlApp = Nothing

End Sub

Slts

wape

ktmpb · Answer

merci bcp car moi aussi j'avais un pb comme celui la !!  :big)

cs_jeanluc · Answer

Merci pour les réponses
@+
jluc

boss2000 · Answer

le code chez moi ne marche pas pkoi
Dim oXlApp As Excel.Application
Dim oXlWbk As Excel.Workbook

Set oXlApp = CreateObject("Excel.Application")
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")

With oXlWbk
'Imprimer tout le classeur
.PrintOut
'Imprimer la feuille "Feuil1"
.Worksheets("Feuil1").PrintOut
.Close
End With

oXlApp.Quit
Set oXlApp = Nothing

boss2000 · Answer

je lai mis  
private sub from_load() ?