Imprimer avec le choix des pages

Bonjour,

J'aimerai pouvoir imprimer en vba avec le choix des feuilles a imprimer. J'ai déjà un code mais sans le choix car je ne sais pas comment faire.

Merci pour votre coup de pouce.

Dim Zoom As Integer
Dim Orientation As Integer

Zoom = 67
Orientation = xlLandscape

ActiveSheet.PrintOut , , 1, False, "Mon_Imprimante", False, False

Bonjour

Voici une macro que j'utilise pour imprimer l'onglet de mon choix

Sub Lanc_Impr_Ongl_Diff_Acti_Choi()

' Macro fonctionnelle sous Microsoft Office 2016 créée pour votre usage
' Cette macro permet d'imprimer une feuille choisie

On Error Resume Next
  ScreenUpdating = False
  Msg = "Imprimer"
    Title = "Voulez vous imprimer une autre page"
    Dim maPage As String
    maPage = Application.InputBox(Prompt:="Saisir le nom de la page", Title:="Page à imprimer", Default:="", Type:=2)
    Style = vbYesNoCancel + vbQuestion
    reponse = MsgBox(Msg, Style, Title)
    If reponse = vbCancel Then Exit Sub
    If reponse = vbYes Then
    ActiveSheet.Unprotect
    Sheets(maPage).Select
    ActiveWindow.SelectedSheets.PrintOut copies:=1, Collate:=True
    Sheets("Feuil1").Select
    ActiveSheet.Protect DrawingObjects:=True, contents:=True, Scenarios:=True
    Else
    Range("E6").Select
       MsgBox "Impression stopp?e"
    End If

End Sub

Cela fonctionne sous Office 2013, 2016 & 2019

Cordialement

Merci Soleusterm pour ta réponse mais je ne veux pas imprimer plusieurs pages sur différents onglets mais sur une page, j'ai défini mes zones d’impression en passant par aperçuSautde pg. j'ai plusieurs pages et en fonction je voudrai imprimer la page 1 et 3 ou plus dans certains cas et je n'ai pas besoin de toutes les pages dans autre cas.

Si je résume ton besoin tu veux grouper en une seule impression plusieurs champs qui se trouvent sur différentes pages?

j'ai une feuille qui se coupe en plusieurs pages pour l'impression, je veux juste avoir le choix sur la page a imprimer ou les pages a imprimer de cette même feuille.

Dans ce cas, crée une macro qui masque les lignes que tu ne veux pas imprimer et utilise une macro de ce type

Sub Masq_Lign_Vide_Impr()

' Macro fonctionnelle sous Microsoft Office 2016 créée pour votre usage
' Masque les lignes vides à l'impression

 On Error Resume Next
 For Each ligne In ActiveSheet.UsedRange.Rows
 If ligne.Cells(1, 1).Value = Empty Then  'si la cellule de la colonne A est vide, la ligne est masqu?e
 ligne.EntireRow.Hidden = True
 End If
 Next  'Recherche de la derniere cellule
 ActiveCell.SpecialCells(xlLastCell).Select
 dercell = ActiveCell.Address
 'definition de la zone d'impression
 zoneIMP = Range("A1", dercell).Address
 ActiveSheet.PageSetup.PrintArea = zoneIMP
 ActiveWindow.SelectedSheets.PrintOut copies:=1

End Sub

Tu peux soit indiquer dans une colonne (ici c'est la colonne A mais tu peux le modifier) une valeur d'éviction soit au contraire définir que les lignes dont la colonne "X " est vide ne seront pas imprimées.

Cordialement

Je dois certainement pas bien expliquer ma demande et m'en excuse, je ne veux pas rechercher ma dernière ligne pour imprimer , mais juste le choix des pages de la feuille.

Oui, je comprends parfaitement.

D'où l'idée de cette macro qui te permet de sélectionner par choix ce que tu veux imprimer.

Dans ce cas tu indice tout ce qui ne doit pas être imprimé.

Ex:

Les lignes 1 à 75 rien en A donc non imprimées

Les lignes 76 & 77 valeur en A donc imprimées

les Lignes 78 à 100 rien en A donc non imprimées

Etc. etc.

Il y a surement moyen de faire autrement mais Cette méthode qui peut être gérée en automatique fonctionne, je viens de le faire avec un test de 1500 lignes aléatoires.

Seulement 120 réparties sur plusieurs pages sont imprimées et cela ne représente que 2 feuilles.

Désolé, mais je n'ai pas d'autre méthode à te proposer dans l'instant.

Cordialement.

Je comprend ta méthode mais malheureusement ne s'adapte pas a ma feuille avec la colonne A. c'est gentil de ta part d'avoir pris de ton temps pour m'aider.

Je vais continuer de chercher de mon coté.

Merci pour ton intervention.

Re,

J'ai trouvé pour imprimer mes pages demandées mais par contre lorsque je veux utiliser la couleur cela ne marche pas avec BlackAnd Whit = False.

Une petite idée pour m'aider avec un grand merci après.

Rechercher des sujets similaires à "imprimer choix pages"