Bonjour, voici mon problème. J'utilise une petite routine pour imprimer mes
documents XLS recus par email. J'ignore pourquoi mais tous les documents que
je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes
les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String)
On Error Resume Next
Dim exclApp As excel.Application
Dim xlwb As excel.Workbook
Set exclApp = CreateObject("Excel.Application")
Set xlwb = exclApp.Workbooks.Open(strPath, , True)
xlwb.PrintOut , , 1
Call xlwb.Close
Call exclApp.Quit
Set exclApp = Nothing
End Sub
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
michdenis
Bonjour Sébastien,
As-tu vérifié si dans le ThisWorkbook du classeur que tu reçois, il y a des macros ?
Salutations!
"Sébastien Côté" a écrit dans le message de news:EUgIb.4955$ Bonjour, voici mon problème. J'utilise une petite routine pour imprimer mes documents XLS recus par email. J'ignore pourquoi mais tous les documents que je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String) On Error Resume Next Dim exclApp As excel.Application Dim xlwb As excel.Workbook Set exclApp = CreateObject("Excel.Application") Set xlwb = exclApp.Workbooks.Open(strPath, , True) xlwb.PrintOut , , 1 Call xlwb.Close Call exclApp.Quit Set exclApp = Nothing End Sub
Merci! Sébas!
Bonjour Sébastien,
As-tu vérifié si dans le ThisWorkbook du classeur que tu reçois, il y a des macros ?
Salutations!
"Sébastien Côté" <NOsebasval@sympatico.caSPAM> a écrit dans le message de
news:EUgIb.4955$Vl6.1339321@news20.bellglobal.com...
Bonjour, voici mon problème. J'utilise une petite routine pour imprimer mes
documents XLS recus par email. J'ignore pourquoi mais tous les documents que
je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes
les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String)
On Error Resume Next
Dim exclApp As excel.Application
Dim xlwb As excel.Workbook
Set exclApp = CreateObject("Excel.Application")
Set xlwb = exclApp.Workbooks.Open(strPath, , True)
xlwb.PrintOut , , 1
Call xlwb.Close
Call exclApp.Quit
Set exclApp = Nothing
End Sub
As-tu vérifié si dans le ThisWorkbook du classeur que tu reçois, il y a des macros ?
Salutations!
"Sébastien Côté" a écrit dans le message de news:EUgIb.4955$ Bonjour, voici mon problème. J'utilise une petite routine pour imprimer mes documents XLS recus par email. J'ignore pourquoi mais tous les documents que je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String) On Error Resume Next Dim exclApp As excel.Application Dim xlwb As excel.Workbook Set exclApp = CreateObject("Excel.Application") Set xlwb = exclApp.Workbooks.Open(strPath, , True) xlwb.PrintOut , , 1 Call xlwb.Close Call exclApp.Quit Set exclApp = Nothing End Sub
Merci! Sébas!
Sébastien Côté
J'ai trouvé le problème, problème de driver d'imprimante (PDF Factory) il déconnait
Merci tout de même!
Sébastien
"michdenis" a écrit dans le message de news:
Bonjour Sébastien,
As-tu vérifié si dans le ThisWorkbook du classeur que tu reçois, il y a des macros ?
Salutations!
"Sébastien Côté" a écrit dans le message de news:EUgIb.4955$ Bonjour, voici mon problème. J'utilise une petite routine pour imprimer mes
documents XLS recus par email. J'ignore pourquoi mais tous les documents que
je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String) On Error Resume Next Dim exclApp As excel.Application Dim xlwb As excel.Workbook Set exclApp = CreateObject("Excel.Application") Set xlwb = exclApp.Workbooks.Open(strPath, , True) xlwb.PrintOut , , 1 Call xlwb.Close Call exclApp.Quit Set exclApp = Nothing End Sub
Merci! Sébas!
J'ai trouvé le problème, problème de driver d'imprimante (PDF Factory) il
déconnait
Merci tout de même!
Sébastien
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:e5UNSgwzDHA.2064@TK2MSFTNGP10.phx.gbl...
Bonjour Sébastien,
As-tu vérifié si dans le ThisWorkbook du classeur que tu reçois, il y a
des macros ?
Salutations!
"Sébastien Côté" <NOsebasval@sympatico.caSPAM> a écrit dans le message de
news:EUgIb.4955$Vl6.1339321@news20.bellglobal.com...
Bonjour, voici mon problème. J'utilise une petite routine pour imprimer
mes
documents XLS recus par email. J'ignore pourquoi mais tous les documents
que
je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes
les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String)
On Error Resume Next
Dim exclApp As excel.Application
Dim xlwb As excel.Workbook
Set exclApp = CreateObject("Excel.Application")
Set xlwb = exclApp.Workbooks.Open(strPath, , True)
xlwb.PrintOut , , 1
Call xlwb.Close
Call exclApp.Quit
Set exclApp = Nothing
End Sub
J'ai trouvé le problème, problème de driver d'imprimante (PDF Factory) il déconnait
Merci tout de même!
Sébastien
"michdenis" a écrit dans le message de news:
Bonjour Sébastien,
As-tu vérifié si dans le ThisWorkbook du classeur que tu reçois, il y a des macros ?
Salutations!
"Sébastien Côté" a écrit dans le message de news:EUgIb.4955$ Bonjour, voici mon problème. J'utilise une petite routine pour imprimer mes
documents XLS recus par email. J'ignore pourquoi mais tous les documents que
je recois sont imprimés deux fois! Je précise que je tiens à ce que toutes les feuilles soient imprimées!
Je suis sous Office et Windows XP, VB6 SP 5.
Private Sub Print_Excel_File_with_UDC(strPath As String) On Error Resume Next Dim exclApp As excel.Application Dim xlwb As excel.Workbook Set exclApp = CreateObject("Excel.Application") Set xlwb = exclApp.Workbooks.Open(strPath, , True) xlwb.PrintOut , , 1 Call xlwb.Close Call exclApp.Quit Set exclApp = Nothing End Sub
