Re : Impression de plusieurs userforms
Bonjour James,
Effectivement j'y ai pensé à la boucle mais ca ne marche pas.
J'ai testé pas à pas et je vois où est le problème mais pour le résoudre je ne sais pas trop comment m'y prendre.
Comme j'ai dit, l'impression écran du userform principal fonctionne nickel mais la suite des impressions déconne.
Le code que j'ai créé est le suivant:
Private Sub imprime_btn_Click()
Dim img As Object
'impression écran
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
'Collage et mise en page
Sheets("Imprimer").Select
Range("A1").Select
ActiveSheet.Paste
With Feuil21.PageSetup
.PrintArea = "A1:J49"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterHorizontally = True
.CenterVertically = True
End With
'on vérifie que le bouton de commande du USF2 est valide
If visu_gdt_btn.Enabled = True Then
visu_gdt.Show
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents
Unload visu_gdt
Sheets("ImprimerGDT").Select
Range("A1").Select
ActiveSheet.Paste
With Feuil22.PageSetup
.PrintArea = "A1:G52"
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterHorizontally = True
.CenterVertically = True
End With
End If
'On imprime les feuilles sélectionnées
Sheets("Imprimer").PrintOut Copies:=1, Collate:=True
Sheets("ImprimerGDT").PrintOut Copies:=1, Collate:=True
'RAZ des images du classeur
For Each img In ActiveWorkbook.ActiveSheet.Shapes
img.Delete
Next
Sheets("Menu").Select
End Sub
Mais mon problème vient de là:
If visu_gdt_btn.Enabled = True Then
visu_gdt.Show
Il ouvre le useform visu_gdt et du coup sort de la boucle. Par conséquent il ne peut imprimer le userform comme je le souhaite. Peut être y a-t-il une autre commande que show ?