Aperçu avant impression

[bobjazz]

Bonjour le Forum,

Je sais le sujet est de partout, mais j'ai essayé plein de code et j'ai toujours le même résultat.
voici mon code :

Sub ImprimeSelection1()

Dim Tableau1 As Range, L As Long
Set Tableau1 = Feuil9.[Tableau1]
Range("Tableau1").Select
Application.DisplayStatusBar = True
Verif = False
Selection.PrintOut Copies:=1, Collate:=True
Range("F2").Select
End Sub

j'imprime la liste de nom Tableau1, cela fonctionne, mais je voudrais avoir l'aperçu et faire mon choix.
j'ai rajouté ces lignes
J'ai bien essayé:
Application.Dialogs(xlDialogPrintPreview).Show
ou
Commandbars.ExecuteMSO("FilePrintPreview")
Et
Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint"),
mais le résultat est le même, chaque fois j'ai l’aperçu de tout mon tableau mais pas la liste de nom, et en plus quand je clique sur la croix pour fermer, l'impression part.

Merci d'avance

Bobjazz
"

 

[Papou-net]

Re : Aperçu avant impression

Bonsoir bobjazz,

Pour lancer l'aperçu avant impression, il te faut ajouter la ligne suivante :

Sub ImprimeSelection1()

Dim Tableau1 As Range, L As Long
Set Tableau1 = Feuil9.[Tableau1]
Range("Tableau1").Select
Application.DisplayStatusBar = True
Verif = False
Selection PrintPreview '<-----------------------------
Selection.PrintOut Copies:=1, Collate:=True
Range("F2").Select
End Sub

Et si tu veux annuler l'impression après avoir fermé l'aperçu, un simple messagebox :

...
...
Selection PrintPreview
If MsgBox("Lancer l'impression ?", vbOk + vbCancel, "IMPRIMER") = vbOk Then
     Selection.PrintOut Copies:=1, Collate:=True
End If
...
...

Cordialement.

 

[bobjazz]

Re : Aperçu avant impression

Bonsoir Papou-net
j'ai un message d'erreur :
Erreur de compilation
Utilisation incorrecte de la propriété
Voici le code comment je l'ai monté
Sub ImprimeSelection1()

Dim Tableau1 As Range, L As Long
Set Tableau1 = Feuil9.[Tableau1]
Range("Tableau1").Select
Application.DisplayStatusBar = True
Verif = False
Selection PrintPreview
If MsgBox("Lancer l'impression ?", vbOK + vbCancel, "IMPRIMER") = vbOK Then
Selection.PrintOut Copies:=1, Collate:=True
End If
Selection.PrintOut Copies:=1, Collate:=True
Range("F2").Select
End Sub

Merci

Bobjazz

 

[Papou-net]

Re : Aperçu avant impression

RE :

Exact, j'ai omis un signe de ponctuation.

Il fallait lire :

Selection.PrintPreview

Cordialement.

 

[bobjazz]

Re : Aperçu avant impression

Bonsoir Papou-net

J'ai trouvé, il manquait le point entre Selection.PrintPreview
Par contre je ne trouve pas, quand j'ai le message "Lancer l'impression" et que je dis non il lance l'impression quand même

Merci

Bobjazz

 

[Papou-net]

Re : Aperçu avant impression

Bonsoir Papou-net

J'ai trouvé, il manquait le point entre Selection.PrintPreview
Par contre je ne trouve pas, quand j'ai le message "Lancer l'impression" et que je dis non il lance l'impression quand même

Ben oui, tu dois effacer la ligne "Selection.PrintOut..." après le End If.

Tout simplement.

Cordialement.

 

[bobjazz]

Re : Aperçu avant impression

Bonsoir Papou-net

Super, je relancé l'impression, fatigué

Bonne nuit, grosse journée demain

Encore Merci

Bobjazz