Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 700 fois - Téléchargée 21 fois
Public Sub imprime() Dim i As Integer Dim j As Integer 'Choix de l'imprimante Application.Dialogs(xlDialogPrinterSetup).Show 'Initialisation des variabales (i=9 pour début impression à la ligne 9) i = 9 j = 0 'Test cellule vide dans la colonne 2, dernière ligne remplie dans j While ActiveSheet.Cells(i, 2) <> "" i = i + 1 j = i - 1 Wend 'Définition de la zone d'impression nombre de lignes:j nombre de colonnes:13 ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(j, 13)).Address ActiveWindow.SmallScroll Down:=-18 'Impression des lignes 1 à 8 en tête de chaque page With ActiveSheet.PageSetup .PrintTitleRows = "$1:$8" .PrintTitleColumns = "" End With With ActiveSheet.PageSetup 'Afichage du nombre de pages en en-tête .CenterFooter = "&""Arial,Gras""&12Page &P/&N" .LeftMargin = Application.InchesToPoints(0.393700787401575) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0.511811023622047) .FooterMargin = Application.InchesToPoints(0.31496062992126) .CenterHorizontally = True .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False 'affiche le tableau sur une page en largeur.. défini manuellement par test .Zoom = 49 .PrintErrors = xlPrintErrorsDisplayed End With 'Impression ActiveSheet.PrintOut 'Positionnement sur la cellule A9 Range("A9").Select End Sub
http://www.vbfrance.com/ajoutcode.aspx?ID=41958
Quand tu parles de "choses en dur", tu veux dire par là de valeurs définies par la macro et non par des variables?
Pour le A9 c'était propre à la première utilisation que j'ai fait de cette fonction, j'aurais du le changer avant de poster la source!
interdit d'avoir une cellule vide ?
While ActiveSheet.Cells(i, 2) <> ""
i = i + 1
j = i - 1
Wend
utilises plustot SpecialCells(xlCellTypeLastCell)
pas mal, en somme, mais trop de choses en dur (comme la colonne 13...)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.