Macro pour imprimer zone variable...

D

Denis

Guest

• 11 Avril 2011

• #2

Re : Macro pour imprimer zone variable...

Bonjour Christian et le Forum,
mets ceci dans un module et adapte.
Sub Impression()
Dim Derligne
Derligne = ThisWorkbook.Sheets("Feuil1").Range("CC65536").End(xlUp).Row
Application.Dialogs(xlDialogPrinterSetup).Show
With ThisWorkbook.Sheets("Feuil1")
.PageSetup.PrintArea = "I2:CC" & Derligne
With ThisWorkbook.Sheets("Feuil1").PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With
End Sub
Bon courage et à +
Denis

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Avril 2011

• #3

Re : Macro pour imprimer zone variable...

Bonjour à tous,
Salut Christian,

Peux-tu essayer en incluant ceci dans ton code :

ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
"=OFFSET(Feuil1!R4C9:R75C81,,,COUNTIF(Feuil1!R4C81:R75C81,"">0"")+1)"

Cliquez pour agrandir...

Le NBVAL() n'est pas suffisant : tes cellules vides en CC ne sont pas vraiment vides

A++ l'ami
A+ à tous

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Avril 2011

• #4

Re : Macro pour imprimer zone variable...

Re, le forum, Denis,

Merci, Denis, pour ton aide et le boulot, mais ça n'imprime pas la zone...
voir le fichier (premier message), j'ai intégré ta macro.

A vous lire,

Bien à vous.
Encore merci,
Christian

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 11 Avril 2011

• #5

Re : Macro pour imprimer zone variable...

Bonsoir Christian0258, Denis
Salut JCGL

Juste en ajoutant les $ la macro de denis fonctionne

Sub Impression() 'Denis
Dim Derligne
Derligne = ThisWorkbook.Sheets("Feuil1").Range("$CC$75").End(xlUp).Row + 1
Application.Dialogs(xlDialogPrinterSetup).Show
With ThisWorkbook.Sheets("Feuil1")
.PageSetup.PrintArea = "$I$2:$CC" & Derligne
With ThisWorkbook.Sheets("Feuil1").PageSetup
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut Copies:=1
End With
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 11 Avril 2011

• #6

Re : Macro pour imprimer zone variable...

Re, le forum, Denis, JCGL, piga25,

Merci à vous pour votre aide.
piga25, chez moi même avec les "$" ça ne fonctionne pas ?
JCGL à quel endroit faut-il placer ton code?

Bien à vous,
Christian.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Avril 2011

• #7

Re : Macro pour imprimer zone variable...

Bonjour à tous,

Tu places ceci dans un module et en fin de traitement de ton code, tu places Call Test :

VB:

Sub Test()
ActiveWorkbook.Names.Add Name:="Print_Area", RefersToR1C1:= _
"=OFFSET(Feuil1!R2C9:R75C81,,,COUNTIF(Feuil1!R2C81:R75C81,"">0"")+1)"
End Sub

Ce qui te donnera ceci :

​

Que tu peux placer directement par Insertion / Nom / Définir

A+ à tous

​

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 11 Avril 2011

• #8

Re : Macro pour imprimer zone variable...

Bonjour à tous,

Ton fichier en retour

A++

 

Pièces jointes

• JC Zone impression.xls

  70.5 KB · Affichages: 172

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 12 Avril 2011

• #9

Re : Macro pour imprimer zone variable...

Bonjour à tout le forum,

Je vous remercie, Denis, piga25 et l'ami JCGL pour votre aide.

Merci Jean-Claude, pour l'envoi du fichier exemple, c'est parfait.

Bien à vous,
Christian

 

Vote positif 0 Vote négatif