Dev Faq
0
votes

Imprimer des feuilles visibles comme groupe sauf un

J'essaie d'imprimer toutes les feuilles visibles, sauf une, en tant que groupe, pour afficher le nombre total de pages dans le pied de page, par opposition au nombre de pages de chaque feuille.

J'ai essayé la méthode .Sélectionnez, mais je n'ai pas beaucoup d'expérience, alors pas très au-delà de cela, et le code ci-dessous. P> 

Private Sub PrintAll_Click()
Dim Wks As Worksheet

For Each Wks In ActiveWorkbook.Worksheets
    If Wks.Visible = xlSheetVisible Then
        If LCase(Wks.Name) <> "Instructions" Then
            Wks.PrintOut
        End If
    End If
Next Wks
End Sub

0 commentaires

3 Réponses :

2
votes

dans votre code, en utilisant wks.printout imprimera seulement une feuille et la boucle de la boucle, boucle pour imprimer toutes les feuilles séparément.

Vous pouvez utiliser une boucle pour masquer la feuille " Instructions "et utilisez le activeworkbook.printout pour imprimer tout le classeur comme un.

Veuillez essayer le code ci-dessous: xxx

0 commentaires
1
votes

Je pense que vous recherchez quelque chose comme ceci: xxx

étapes:

  • Vérifiez le nom de la feuille et enregistrez-le en tableau qui doit être imprimé
  • Sélectionnez toutes les feuilles de tableau
  • sauvegardez-les tous combinés en PDF.
0 commentaires
0
votes

Cachez simplement l'onglet Instructions et imprimez le classeur. 

Private Sub PrintAll_Click()
    With ActiveWorkbook.Worksheets("Instructions")
        .Visible = xlSheetHidden
        ActiveWorkbook.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        .Visible = xlSheetVisible
    End With
End Sub

0 commentaires

Articles qui pourrait vous intéresser :

Comment amener quatre colonnes de données Excel en deux lignes dans Pandas
AttributeError: l'objet 'ElementTree' n'a pas d'attribut 'getiterator' lors de la tentative d'importation d'un fichier Excel
La fenêtre de l'application EXCEL ne se ferme pas sur classeur.close ()
Exécuter la macro lorsque le résultat de la cellule change par formule