zone d'impression

[J.-P.]

Bonjour à tous,
Je cherche comment définir une zone d'impression qui est la même sur tous les onglets d'un classeur.
Merci de votre aide car coince.

 

[grisan29]

bonjour Jp
voici un code de l’excellent J.P.VIARD🙂dont ou trouve son code dans les ressources

Private Sub imprimer_click() 'Impression Feuille Facture
Dim Retour As Integer

Sheets("feuil1").Activate'<===========================ici
With ActiveSheet.PageSetup
    .LeftMargin = Application.InchesToPoints(0.2)
    .RightMargin = Application.InchesToPoints(0.2)
    .TopMargin = Application.InchesToPoints(0.3)
    .BottomMargin = Application.InchesToPoints(0.3)
    '.PrintQuality = 300
    .Zoom = 85
    .Orientation = xlPortrait
    .BlackAndWhite = False
End With
'---------------- Impression noir et blanc ou couleur ------------------------
Retour = MsgBox("Voulez-vous une copie couleur : O/N ", vbYesNo + vbCritical)
If Retour = vbNo Then
    With ActiveSheet.PageSetup
        .BlackAndWhite = True
    End With
End If
ActiveSheet.PageSetup.PrintArea = "A1:H60"'<=======valeurs"
ActiveSheet.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut copies:=2
End Sub

il faut que tu change le nom de feuille, et pour changer la zone d'impression tu change les valeurs
et ensuite rtu change pour imprimer où pas la dernière ligne
mais pour l'adapter a plusieurs feuilles il y a plus aguerri que moi

 

[chris]

Bonjour

Dans le module Workbook

Sub zoneimp()
    For Each WS In Worksheets
        WS.PageSetup.PrintArea = "A1:H60"
    Next WS
End Sub