impression en A4

[arvin]

bonsoir à tous,


j'ai un souci : j'ai un tableau (dont le nombre de lignes peut varier, mais pas le nombre de colonnes) que je souhaite imprimer (avec un aperçu avant impression ) avec une belle mise en page .... j'ai essayé une macro toute bizarre avec un bouton assez sympatique mais ccela ne fonctionne pas trop bien

est ce que quelqu'un pourrait m'aider à y voir + clair?


merci à tous


[file name=imprimertableau.zip size=16669]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imprimertableau.zip[/file]

 

[pat1545.]

Salut
(pas ouvert ton fichier)
la dernière cellule d'un feuille est :

Lastrow = Cells.Find('*', [A1], SearchDirection:=xlPrevious).Address

donc ensuite:

Sub are()
Dim Last As String
Last = Cells.Find('*', [A1], SearchDirection:=xlPrevious).Address
Range('$A$1:' & Last).Select
Worksheets(2).PageSetup.PrintArea = '$A$1:' & Last
End Sub



Patrick

 

[arvin]

bonsoir et merci pour tes explications : j'ai essayé mais cela sélectionne que le tableau (pas d'aperçu ni de mise en page )

que faire ?


merci [file name=imprimertableau_20050415221042.zip size=16560]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imprimertableau_20050415221042.zip[/file]