Bonjour à tous !

J'ai un formulaire de taille : height = 1599,75 * width = 575,25
J'ai besoin d'imprimer le formulaire à la fin, mais il est trop grand.
J'ai donc essayer un zoom :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 FormBranchRenouvele.Zoom = 65
mais là c'est vraiment trop petit.

J'aimerais donc, si possible imprimer le formulaire sur deux pages en divisant le formulaire en 2.

Est ce possible et si oui, comment?
J'attends vos réponces avc impatience !

PS : ma procédure d'impréssion actuel 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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
' Imprimer le formulaire
Public Sub ImprimerForm()
 
   ' Rendre invisible les differents bouton
   FormBranchRenouvele.BtValider.Visible = False
   FormBranchRenouvele.BtAnnuler.Visible = False
   FormBranchRenouvele.BtChargerPhoto.Visible = False
   FormBranchRenouvele.BtCharger.Visible = False
   FormBranchRenouvele.BtEditerRapport.Visible = False
   FormBranchRenouvele.BtMultiEdition.Visible = False
   FormBranchRenouvele.BtImprimer.Visible = False
   FormBranchRenouvele.SpinBtChangeTuple.Visible = False
   FormBranchRenouvele.LblTuple.Visible = False
   FormBranchRenouvele.LblNumTuple.Visible = False
 
   ' Rendre invisible la FramePhoto si le choix est non
   If FormBranchRenouvele.OptPhotoNon = True Then
        FormBranchRenouvele.FramePhoto.Visible = False
   End If
 
   ' Adapter le formulaire a la taille d'une feuille
   FormBranchRenouvele.Zoom = 65 ' l'entier correspond a un pourcentage d'agrendissement, ici 75% = -25
 
   ' Lancer l'impression
   FormBranchRenouvele.PrintForm
 
  ' Remettre visiblme les differents boutons
   FormBranchRenouvele.BtValider.Visible = True
   FormBranchRenouvele.BtAnnuler.Visible = True
   FormBranchRenouvele.BtChargerPhoto.Visible = True
   FormBranchRenouvele.BtEditerRapport.Visible = True
   FormBranchRenouvele.BtCharger.Visible = True
   FormBranchRenouvele.BtImprimer.Visible = True
   FormBranchRenouvele.SpinBtChangeTuple.Visible = True
   FormBranchRenouvele.LblTuple.Visible = True
   FormBranchRenouvele.LblNumTuple.Visible = True
   FormBranchRenouvele.BtMultiEdition.Visible = True
 
   ' Re afficher la FramePhoto
   If FormBranchRenouvele.OptPhotoNon = True Then
        FormBranchRenouvele.FramePhoto.Visible = True
   End If
End Sub