Microsoft 365 zone impression

Moreno076 · 28 Février 2020

Bonsoir à tous.

J'ai un bouton impression où la macro défini actuellement une zone d'impression correspondant à deux pages allant de la colonne B à la colonne N.

Je voudrais savoir si il est possible de garder ces parametres mais en se basant aussi sur le nombre de lignes pleines. La plus part du temps une feuille suffit.

Macro actuelle

Sub Impression()
'
' IMPRESSION Macro
'

Range("A:A").Select
Selection.EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True, _
IgnorePrintAreas:=False
Range("A:A").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
End Sub

Merci

Staple1600 · 28 Février 2020

Bonsoir le fil, Moreno076

Moreno076
Normalement, cela devrait le faire, non ?

VB:

Sub Zone_Impression()
With ActiveSheet
.PageSetup.PrintArea = .Cells(2).Resize(.Cells(Rows.Count, 2).End(3).Row, 13).Address
End With
End Sub

Staple1600 · 28 Février 2020

Re, Bonsoir Dranreb

Dranreb à dit:
après exécution de la macro Impression*, du module Impression, qui ne fait pas d'impression d'ailleurs, la zone d'impression est définie à B1:N9.
Tout cela me semble très correct.

Oui c'est ce que je dis depuis le message#6
*: Mon code VBA ne fait que définir une zone d'impression.

TooFatBoy · 29 Février 2020

Bonjour,

@Moreno076 : je crois que ta question n'est pas très claire...

1- Tu dis que tu as une macro dans laquelle tu définis une zone d'impression, mais la macro que tu donnes ne définie aucune zone d'impression.
Elle cache la colonne A, elle imprime la feuille, elle positionne un paramètre d'impression, et enfin elle montre la colonne A.

2- Staple comprend dans ton message initial que ta macro "Impression" ne fait que définir la zone d'impression, donc il te donne la bonne méthode pour définir la zone d'impression.

3- Tu parles de "deux pages". Mais quel est le problème ? Est-ce plus un problème de mise en page (par exemple le tableau qui déborde en largeur sur deux pages) plutôt qu'un problème de définition de la zone d'impression ?

4- Tu sembles parler de ne garder que les lignes vides. Est-ce cela le problème ?

Moreno076 · 29 Février 2020

Le probleme est résolu merci a tous

Staple1600 · 29 Février 2020

Bonjour le fil

Moreno076
L'usage (en théorie ou sur un XLD idéal) lorsqu'un demandeur annonce que son problème est résolu, c'est qu'il publie la solution dans la discussion pour qu'elle profite à tous.
C'est indolore et ne présente aucun risque du CoVid-19
(les macros VBA étant insensibles à ce type de virus, même en Option Explicit)

C'est ce qu'on a coutume d'appeler ici le partage des connaissances ou l'esprit XLDien.

Moreno076 · 29 Février 2020

Je pense que je faisais imprimer avec le raccourci excel et non la macro c est pour ca. Désolé staple1600 la fatigue....

Microsoft 365 zone impression

Moreno076

XLDnaute Impliqué

Staple1600

Staple1600

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Moreno076

XLDnaute Impliqué

Discussions similaires