Version imprimable
Bonsoir à tous , voila ma question:
J'ai une feuille ou l'on peut remplir jusqu'a 10 pages.
En fonction du nombre de page de remplie je veux les imprimer.
Je pense faire appel via un userform et une toupie pour choisir le nombre de page à imprimer.
Est ce que je dois nommer en zone mes pages?
Comment creer un code pour l'impression en fonction du nombre sélectionné par la toupie.
Par avance merci à tous
Salut,
Si le format des tes pages ne change pas il sera plus simple de les formater via le Page setup, ensuite ce code lié à ton bouton d'impression devrais faire l'affaire:
A+Code:
2
3
4
5
bonjour et merci pour l'aide , non le format de mes pages ne changera pas car ce sont des tableaux avec des données à saisir.
Pour ce qui est de formater via le page setup ??? désolé mais je ne sais pas le faire ou du moins je ne vois pas comment faire peux tu m'en dire un peu plus sur ça. Par avance merci mes amitiés
J'ai sasie le code et j'ai une erreur de syntaxe, Cela provient de ou ? merciCode:
2
3
4
Re,
Pour le Page Setup (désolé je suis en anglais et j'oublie toujours les traductions ...)
En fait le plus simple, clique sur Prévisualisation de l'Impression, de là tu aura un bouton, Saut de Page (ou un truc du genre, normalement à gauche de 'fermer')
Tu auras alors ta page avec des lignes continues et pointillées bleues qui représentent les sauts de pages, il te suffit de les adapter avec ta souris.
Pour ce qui est de l'erreur de syntaxe, pour passer à la ligne dans le code il faut précéder le saut de ligne par un espace et _ par contre il n'en faut pas si on remet la ligne à la suite donc ton code:
En espérant avoir été clair...Code:
2
3
4
A+
Edit: Validé trop vite code pas corrigé entièrement
Re bonjour et merci pour tes explications , effectivement le (page setup) donc je savais le faire et l'avais bien fait comme il faut.
Déja qu'en français c'est pas toujours évident alors avec un excel en anglais aïe, aïe, je plaisante.
Ton code fonctionne, mais pas tout a fais comme je le voudrais, car il m'imprime mes dix pages malgrés ma sélection via spinbutton.
Si je sélectionne 6 (donc n'imprimer que les six premières pages ) il m'imprime mes 10 pages.
Cela peut provenir de ou ? Amitiés
J'ai fais les tests avec le code fourni par Fvandermeulen (Que je salue de passage) et ça fonctionne
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
re bonjour et bonjour mercatog voila ce que j'ai rajouté moi pour fermer l'uSF et avoir un aperçu avant l'impression.
Et dans l'aperçu il me met les dix pages , je n'ai pu essayer d'imprimer car j'ai pas d'imprimante sous la main.
Peut il y avaoir une différence entre l'aperçu et l'impression réelle.?
voici donc mon code .
en tout cas j'apprécie enormement votre aide, mes amitiésCode:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17Private Sub CommandButton2_Click() Sheets("Feuil4").PrintOut From:=1, To:=CInt(Me.TextBox1.Value), Copies:=1, Collate:=True Unload USF_Printchaines ActiveSheet.PrintPreview Unload Me End Sub Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm TextBox1.Value = 1 'affiche zéro dans la TextBox1 End Sub Private Sub SpinButton1_Change() 'au changement du SpinButtons1 TextBox1.Value = SpinButton1.Value 'la TextBox1 affiche la valeur du SpinButton1 End Sub Private Sub CommandButton1_Click() Unload Me End Sub
Citation:
expression.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)
Tiré de l'aide (F1)Citation:
expression.PrintPreview
J'ai testé le dernier code, ça fonctionne à l'impression (tu n'auras de perte de papier ;) )
l'aperçu te donnera l'aperçu de la plage à imprimer
dans ton cas, les 10 pages!
OK je vous remercie tous alors toutes mes amitiés et encore chapeau.:ccool:
Re bonjour et pour enrichissement personnel existe t'il un code en remplacement de
qui nous permettrez de visualiser que ce qui a été demandé à imprimer?Code:ActiveSheet.PrintPreview
Par avance merci
Regarde du côtéCode:Sheets("Feuil1").PageSetup.PrintArea = "$A$1:$M$" & LastLig 'LastLig=Dernière ligne de la zone à imprimer