Discussion :

[alex_elder1_1]

Bjr a tous

je voudrais avoir la possibilite de pouvoir naviguer ds la print view c'est a dire pouvoir si je n'ai pas choisi la bonne page au depart ds mon input box pouvoir changer de page ds la barre d'etat au dessus de la previsualisation.
voila mon code est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub CommandButton4_Click()
 
Dim NumPge, LigDeb, LigFin
 
  NumPge = InputBox("Enter the page number that you want to print:")
  If NumPge = "" Then Exit Sub
  LigDeb = 1 + (23 * (NumPge - 1) * Abs(NumPge > 1)) + 1
  LigFin = 1 + (23 * (NumPge - 1)) + 23
                With ActiveSheet.PageSetup
                .PrintTitleRows = "$1:$1"
                .LeftHeader = "CT Dynamics (R & D) Motor ID Log for Lab"
                .CenterHeader = ""
                .RightHeader = "Page " & NumPge
                End With
    ActiveSheet.PageSetup.PrintArea = "$B$" & LigDeb & ":$J$" & LigFin
 
ActiveWindow.SelectedSheets.PrintPreview
 
 
End Sub

merci d'avance

[Paloma]

Bonjour alex_elder1_1,

Non, je pense que tu t'y prends un peu mal sans vouloir te vexer.
Je ne suis qu'un débutant et je n'ai de leçon à donner à personne.

Mais, je pense qu tu devrais mettre tout ça dans un Userform, ta fonction à part et dans ton userform, un champ de texte que tu peux modifier à volonté, un bouton qui quand le champ est rempli passe le contenu dans une variable et lance ta fonction imprimée avec cette variable en attribut.

heuu .. c'est clair?

Cordialement,
Paloma

Penser au bouton

[Invité]

Ce n'est pas possible !
Puisque dans le code tu définit la zone d'impression à tes 23 lignes de la page X
Donc dans un préview, tu n'auras que ces 23 lignes

Désolé, mais on ne peut pas tout faire, même en VBA

[alex_elder1_1]

je vous remercie tous les deux mais je dois le mettre obligatoirement en bouton car je n'ai que ce bouton pas de userform paloma
merci qd m tous les deux