impression en une seule page

Bonjour, depuis access je rempli des fichiers excel destinés à être imprimés.

Ces fichiers contiennent pas mal de d'information et selon le nombre d'info je sais pas si ca va rentrer dans une seule page pour l'impression.
Je précise que l'impression n'est pas gérer dans le code, je crée juste les fichiers remplis.
Y a t-il la possibilité de parametrer le fichier pour qu'à l'impression tout tienne sur une page.

j'ai vu ce code dans un tuto mais je sais pas trop si c'est ce dont j'ai besoin, que fait-il exactement ?

Code:

---

1 2 3 4 5 6

With ActiveSheet.PageSetup .PrintArea = "A1:M100" .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With

---

merci.

Bonjour,

Ce code met à jour la mise en page pour impression sur une page de la plage de cellule A1 à M100

Bonjour jFontaine et merci pour ta réponse.

Je précise que je n'imprime pas les fichiers que je crée.Ce que je veux c'ets que après la création des fichiers, l'utilisateur ouvre le fichier et que l'impression soit paramétré pour que ca tienne en une page.
Donc j'alimente mon fichier ensuite avant la fermeture je paramètre l'impression avec ce code et je sauve le fichier.

Est-ce que à l'ouverture du fichier par l'utilisateur, ces paramètres sont conserver et qu'il n'a pas besoin de reparamétrer l'impression en une seul page. C'est ça que je veux savoir, je poste mon code au cas ou:

Code:

---

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

While Not rs.EOF   'Création fichier facture par client Set xlsClasseur = xls.Workbooks.Add   Set xlsFeuille = xlsClasseur.Worksheets(1)   'Ecriture nom client et periode dans le fichier excel xlsFeuille.Cells(1, 1).Value = "Client : " xlsFeuille.Cells(1, 2).Value = (rs!clientniveau3) xlsFeuille.Cells(2, 1).Value = "Période : " xlsFeuille.Cells(2, 2).Value = CmbPeriodeEditerFacture.Value     'Ecriture Entete xlsFeuille.Cells(4, iColCatAP).Value = "Categorie application" ....................   'Paramétrer l'impression en une seule page With xlsFeuille.PageSetup .PrintArea = "A1:M100" .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With   'Enregistrer le fichier facture par client xlsClasseur.SaveAs FileName:=CurrentProject.Path & "\" & sNomRepertoire & "\Facture" & CmbMois.Value & Replace(rs!clientniveau3, "*", "étoile") & ".xlsx", FileFormat:=xlWorkbookDefault xlsClasseur.Close   Set xlsClasseur = Nothing Set xlsFeuille = Nothing   rs.MoveNext Wend

---

merci

Combien tu as de colonnes?
Le nombre de colonnes est-il fixe?
Tu veux imprimer une partie de ta feuille ou l'ensemble?

Pour règler la mise en page à l'impression de l'ensemble de la feuille (à une seule page), ce code suffit

Code:

---

1 2 3 4 5

With xlsFeuille.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With

---

Ce réglage est sauvegardé avec le fichier. C'est le cas du réglage manuel.
Parfois, il suffit de tester soi même au lieu de demander "Est ce que j'aurai ceci si je fais cela".

Bonjour

Attention cependant si tu ajoutes beaucoup de lignes à ne pas te retrouver avec une microfiche nécessitant une loupe pour lire !

Citation:

---

Envoyé par mercatog

Combien tu as de colonnes?
Le nombre de colonnes est-il fixe?
Tu veux imprimer une partie de ta feuille ou l'ensemble?

Pour règler la mise en page à l'impression de l'ensemble de la feuille (à une seule page), ce code suffit

Code:

---

1 2 3 4 5

With xlsFeuille.PageSetup .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With

---

Ce réglage est sauvegardé avec le fichier. C'est le cas du réglage manuel.
Parfois, il suffit de tester soi même au lieu de demander "Est ce que j'aurai ceci si je fais cela".

---

salut, oui le nombre de colonne est fixe j'en ai 12 et je veux imprimer l'ensemble de la feuille. Donc si je comprends bien j'ai pas besoin du PrintArea ?
merci

Utilises PrintArea si tu veux imprimer une partie de la feuille.
Par défaut l'impression prend la feuille complète