XL 2010 annuler impression sans blocage macro

gh4 · 16 Octobre 2022

bonjour a tous,
dans mon prog je lance une impression pdf. par
Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True
la boite de dialogue Windows s'affiche "enregistrer" "annuler"
si je clique sur "Annuler" le prog se bloque sur
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True
avez vous une idée pour contourner ce problème
par avance merci
cdt

job75 · 16 Octobre 2022

Bonjour gh4, JM,

gh4 à dit:
si je clique sur "Annuler" le prog se bloque sur
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True

Alors introduisez On Error Resume Next :

VB:

On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True

A+

Staple1600 · 16 Octobre 2022

Bonjour @gh4, le fil

@gh4
Essaie ce bout de code (pour test pour le moment)
Sur une feuille non vide, lance cette macro

VB:

Sub Lancer_Choix_Imprimante()
Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End Sub

Que se passe-t-il sur ton PC ?

NB: Sur Office 365, je peux Annuler sans avoir de message d'erreur

gh4 · 16 Octobre 2022

Staple1600 à dit:
Bonjour @gh4, le fil

@gh4
Essaie ce bout de code (pour test pour le moment)
Sur une feuille non vide, lance cette macro

VB:

Sub Lancer_Choix_Imprimante() Application.CommandBars.ExecuteMso "PrintPreviewAndPrint" End Sub

Que se passe-t-il sur ton PC ?

NB: Sur Office 365, je peux Annuler sans avoir de message d'erreur

bonjour Staple 1600
toujours en excel 2003
la macro bloque sur Execute MSO
Message VBA "erreur de compilation membre de methode ou de donnes intouvable"

Staple1600 · 16 Octobre 2022

Re

@gh4
Il faudrait trouver l'équivalent pour Excel 2003
Je cherche sur le net et je reviens quand j'aurai trouvé

job75 · 16 Octobre 2022

Bonjour gh4, JM,

gh4 à dit:
si je clique sur "Annuler" le prog se bloque sur
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True

Alors introduisez On Error Resume Next :

VB:

On Error Resume Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True

A+

Staple1600 · 16 Octobre 2022

Re , Bonjour @job75

@gh4
Et avec ceci, il passe quoi sur Excel 2003 ?

Code:

Sub Choix_Imprimante()
Application.Dialogs(xlDialogPrint).Show
End Sub

NB: Sur mon PC, je peux cliquer sur Annuler
(Imprimante par défaut chez moi : Microsoft Print to PDF)

gh4 · 16 Octobre 2022

job75 à dit:
Bonjour gh4, JM,

Alors introduisez On Error Resume Next :

VB:

On Error Resume Next ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Microsoft Print to PDF sur Ne03:", PrintToFile:=True, Collate:=True

A+

merci beaucoup job 75 test réussit plus de plantage

gh4 · 16 Octobre 2022

Staple1600 à dit:
Re , Bonjour @job75

@gh4
Et avec ceci, il passe quoi sur Excel 2003 ?

Code:

Sub Choix_Imprimante() Application.Dialogs(xlDialogPrint).Show End Sub

NB: Sur mon PC, je peux cliquer sur Annuler
(Imprimante par défaut chez moi : Microsoft Print to PDF)

merci staple1600 pour ton aide job75 à trouver la solution
cela marche parfaitement
désolé pour le dérangement mais un grand merci quand même

Staple1600 · 16 Octobre 2022

@gh4

Solution trouvée ou pas, cela ne réponds pas à ma question du message#6
(j'aimerai savoir pour m'endormir l'esprit tranquille)

job75 · 16 Octobre 2022

gh4 à dit:
merci beaucoup job 75 test réussit plus de plantage

Alors c'est mon post #5 qu'il faut marquer comme solution, pas votre post #7

job75 · 16 Octobre 2022

Pour imprimer un fichier Excel en PDF on utilise en général cette macro :

VB:

Sub PDF()
If MsgBox("Imprimer en PDF ?", 4) = 6 Then _
    ActiveSheet.ExportAsFixedFormat xlTypePDF, Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, ".")) & "pdf"
End Sub

Le fichier Excel doit avoir été enregistré, plusieurs feuilles peuvent être sélectionnées.

Staple1600 · 16 Octobre 2022

Bonjour @job75

@gh4 utilise Excel 2003
C'est pour cela que ma proposition dans sa précédente discussion boguait
(ActiveSheet.ExportAsFixedFormat disponible que depuis Excel 2007, en addon)

Voir ici pour la discussion en question

XL 2010 - ralentissement programme

bonjour à tous, je cherche à cacher des lignes et des colonnes pour créer un pdf. le masquage est tres tres rapide jusqu'a enregistrement en pdf Application.ActivePrinter = "Microsoft Print to PDF sur Ne03:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _...

excel-downloads.com

job75 · 16 Octobre 2022

Le titre mentionne Excel 2010.

gh4 · 16 Octobre 2022

Staple1600 à dit:
@gh4

Solution trouvée ou pas, cela ne réponds pas à ma question du message#6
(j'aimerai savoir pour m'endormir l'esprit tranquille)

désolé
cette fonction ouvre uniquement la fenêtre de choix de l'imprimante

gh4 · 16 Octobre 2022

job75 à dit:
Le titre mentionne Excel 2010.

dans la liste de choix pas de excel 2003

XL 2010 annuler impression sans blocage macro

gh4

XLDnaute Occasionnel

Pièces jointes

job75

Staple1600

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

gh4

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

XL 2010 - ralentissement programme

job75

XLDnaute Barbatruc

gh4

XLDnaute Occasionnel

gh4

XLDnaute Occasionnel

Discussions similaires