Nombre de page qui sera imprimé

[Cougar]

Bonjour le forum,

En cliquant sur le bouton Imprimé, j'aimerai que l'usager soit averti du nombre de pages qui sera imprimées.

Ma question est donc la suivante : comment écrire le code qui calculera le nombre de pages à imprimer avant de lancer l'impression. L'usager répondra à la question suivante :
If MsgBox("Il y aura " #pagesimprimées ". Voulez-vous continer ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbYes Then Exit Sub

Ceci lancera ou non l'impression dépendament de la réponse de l'usager.

Merci

 

[JeanMarie]

Re : Nombre de page qui sera imprimé

Bonsoir

J'ai fait une recherche sur le forum, j'ai trouvé ce lien.
[ulr]http://www.excel-downloads.com/forum/146-numerotation-de-pages.html[/url]

@+Jean-Marie

 

[dg62]

Re : Nombre de page qui sera imprimé

Bonsoir

Sub nbpages()

nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

End Sub

 

[Cougar]

Re : Nombre de page qui sera imprimé

Bonjour à vous tous, le forum,

J'ai essayé les 2 propositions mais sans succès. Normalement je devrais avoir entre 100 et 120 pages (car j'ai 6278 lignes pour le moment) et je n'ai que 1 ou 3 pages (selon mon option) à imprimer.

Voici le code. Si quelqu'un peut trouver le problème ?

Private Sub CmdImprimer_Click()
Dim r As Integer
Dim nbpages As Variant

Unload UsfInventaire
Application.ScreenUpdating = False

For r = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Cells(r, "h")) Then Rows(r).Hidden = True
Next r

Columns("j:bc").Hidden = True
Columns("be:bf").Hidden = True
Columns("G:G").ColumnWidth = 13.72

With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(0.75)
.BottomMargin = Application.InchesToPoints(0.75)
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

'nbpages = ActiveSheet.HPageBreaks.Count + 1
nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
If nbpages = 1 Then
If MsgBox("Il y aura " & nbpages & " page d'imprimée. Voulez-vous continer ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbNo Then Exit Sub
Else
If MsgBox("Il y aura " & nbpages & " pages d'imprimées. Voulez-vous continer ?", vbYesNo + vbQuestion, "Avertissement : Nombre de pages imprimées") = vbNo Then Exit Sub
End If

ActiveSheet.PrintOut
Rows().Hidden = False
Columns().Hidden = False
End Sub

Merci

 

[dg62]

Re : Nombre de page qui sera imprimé

Re

je viens de verifier sur differents fichiers 3 pages et 17 pages la fonction me renvoie bien les bonnes valeurs.

nbpages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")

 

[Cougar]

Re : Nombre de page qui sera imprimé

Bonsoir,

J'ai trouvé le problème. Le code met la police de taille 1 ???

Merci