[VBA] BO XI Imprimer dernière page d'un rapport

[Tigecko]

Bonjour,

Je souhaite imprimer la dernière page d'un rapport.

J'ai essayé ceci:

Code :

ActiveReport.PrintOut FROM:= ActiveReport.NumberOfPages

Mais l'argument From n'est pas reconnu. Il ne semble y avoir que l'argument [PrinterName] de disponible.

Quelqu'un a t'il une solution?

Merci par avance

Cdt

Tigecko

[munity]

bonjour

peut être une solution à ton problème ci dessous

Dim reps As Reports, rep As Report
Dim nbr As Integer, nir As Integer

Set ActDoc = ThisDocument
Set Doc = Application.ActiveDocument
Set reps = Doc.Reports
nbr = reps.Count

une fois que tu as ton nombre de rapport (onglets)
tu boucles pour trouver celui que tu veux imprimer
For Each rep In reps
if rep.name="ton rapport à imprimer"
rep.activate
'appliquer la fonction pour imprimer dans bo'
end if
Next

en espérant avoir pu t'aider

munity