Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Michel Pierron
Bonjour José; Pour l'instant, je n'ai pas trouvé mieux que d'associer la procédure suivante à un bouton qui déclenche l'impression.
Private Sub CmdPrint_Click() Me.Repaint Const Wbk = "c:Mes DocumentsMonTest.xls" ' <= Ceci n'est qu'un exemple ! Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate Dim oXL As Object, wBook As Object Set oXL = CreateObject("Excel.Application") Set wBook = oXL.Workbooks.Open(Wbk) wBook.Sheets(1).PrintOut Copies:=1 wBook.Close False Kill Wbk oXL.Quit Set wBook = Nothing: Set oXL = Nothing End Sub
MP
"josé" a écrit dans le message de news:002301c3a3cc$f8da5560$ Bonsoir, Comment faire pour imprimer le contenu d'une spreadsheet placée dans une userform ?
merci
Bonjour José;
Pour l'instant, je n'ai pas trouvé mieux que d'associer la procédure suivante à un
bouton qui déclenche l'impression.
Private Sub CmdPrint_Click()
Me.Repaint
Const Wbk = "c:Mes DocumentsMonTest.xls" ' <= Ceci n'est qu'un exemple !
Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate
Dim oXL As Object, wBook As Object
Set oXL = CreateObject("Excel.Application")
Set wBook = oXL.Workbooks.Open(Wbk)
wBook.Sheets(1).PrintOut Copies:=1
wBook.Close False
Kill Wbk
oXL.Quit
Set wBook = Nothing: Set oXL = Nothing
End Sub
MP
"josé" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:002301c3a3cc$f8da5560$a601280a@phx.gbl...
Bonsoir,
Comment faire pour imprimer le contenu d'une spreadsheet
placée dans une userform ?
Bonjour José; Pour l'instant, je n'ai pas trouvé mieux que d'associer la procédure suivante à un bouton qui déclenche l'impression.
Private Sub CmdPrint_Click() Me.Repaint Const Wbk = "c:Mes DocumentsMonTest.xls" ' <= Ceci n'est qu'un exemple ! Me.Spreadsheet1.Export Wbk, ssExportActionNone, ssExportAsAppropriate Dim oXL As Object, wBook As Object Set oXL = CreateObject("Excel.Application") Set wBook = oXL.Workbooks.Open(Wbk) wBook.Sheets(1).PrintOut Copies:=1 wBook.Close False Kill Wbk oXL.Quit Set wBook = Nothing: Set oXL = Nothing End Sub
MP
"josé" a écrit dans le message de news:002301c3a3cc$f8da5560$ Bonsoir, Comment faire pour imprimer le contenu d'une spreadsheet placée dans une userform ?
