Discussion :

[pikameuh]

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

[delphine35]

Faire deux formulaires

Cela peux facilement etre invisible a l'affichage et te permet de gerer l'impression des 2 parties separement.

[pikameuh]

Mais je veux vraiment lancer une édition du formulaire entier (ou du moins en même temps) pour avoir le recto verso, et une cohérance des données entre les 2 parties.

De plus, le travail étant déjà fait (le developpement du formulaire) ça m'aiderais vraiment si ma première solution est possible :



Le carré rouge correspondant à la première impression (verso) et le bleu à la deuxième (recto)

[pikameuh]

bon, j'en conclus que ce n'est pas possible..

Merci comme même !