XL 2010 annuler impression sans blocage macro

[gh4]

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

 

[Staple1600]

Bonjour @gh4, le fil

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

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]

Bonjour @gh4, le fil

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

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]

Re

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

 

[job75]

Bonjour gh4, JM,

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 :

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

A+

 

[Staple1600]

Re , Bonjour @job75

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

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]

Bonjour gh4, JM,

Alors introduisez On Error Resume Next :

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]

Re , Bonjour @job75

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

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]

@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]

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]

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

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]

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]

Le titre mentionne Excel 2010.

 

[gh4]

@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]

Le titre mentionne Excel 2010.

dans la liste de choix pas de excel 2003