Discussion :

[_developpeur_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With ActiveSheet.PageSetup
    .PrintArea = "A1:M100"
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
End With

merci.

[jfontaine]

Bonjour,

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

[_developpeur_]

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 :

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
 
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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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".

[78chris]

Bonjour

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

[_developpeur_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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