Range d\'impression = scrollarea de ma page

[GUIGUI]

Range d'impression = scrollarea de ma page

hello le forum

Est - il possible de parametrer un bouton pour imprimer sachant que la zone d'impression doit correspondre a la zone de scrollarea de ma page

je pense a un truc du genre:

dim selection as range
selection = sheets('HC').scrollarea
selection.printout .....

mais ca marche po...

Merci d'avance pour votre aide

A+
guillaume

Message édité par: David_xld, à: 31/03/2005 07:41

 

[Robert]

Re:Range d'impression = scrollarea de ma page

Salut Guigui, salut le forum,

Tu pourrais dans un premier temps exécuter la macro1 qui définit la plage ScrollArea de l'onglet HC. Ensuite la macro2 pour imprimer cette plage.

Option Explicit
Public sa As Range 'déclare la variable sa (ScrollArea)

Sub Macro1()
Set sa = Range('A1:E12') 'définit la variable sa (à adapter)
Sheets('HC').ScrollArea = sa.Address
End Sub

Public Sub macro2()
sa.PrintOut
End Sub

 

[Guigui]

Re:Range d'impression = scrollarea de ma page

Hello robert

En faite ma zone de scrollarea est déja determiner

Je clic sur un bouton >>> une zone de scrollarea est determiner
si je clic sur mon bouton imprimer je veux cette zone determiner en zone d'impression...

Je clic sur un autre bouton >>> une autre zone de scrollarea est determiner
si je clic sur mon bouton imprimer je veux cette zone determiner en zone d'impression...

est-ce que ton exemple corrspond a ceci ?

Merci pour ton aide
a+
guillaume

 

[Robert]

Re:Range d'impression = scrollarea de ma page

Re Guigui, salut le forum,

Oui mon exemple pourrait marcher mais l'idéal serait une pièce jointe zippé car là je n'ai aucune idée de comment est définie la ScrollArea.

 

[PhiBou]

Re:Range d'impression = scrollarea de ma page

Bonjour Guigui, Robert, le Forum

Cette macro associée à ton bouton impression :

Sub Impression_ScrollArea()
Dim Plage As String
Plage = Sheets('HC').ScrollArea
Range(Plage).PrintOut
End Sub

A noter que ScrollArea renvoie une String et non une Range.

Bonne journée

PhiBou

 

[galopin01]

Re:Range d'impression = scrollarea de ma page

bonjour,
pour faire simple :

Sub Impression_ScrollArea()
Sheets('HC').ScrollArea = 'A1:E12'
Range(ScrollArea).PrintOut
End Sub

A+

 

[Guigui]

Re:Range d'impression = scrollarea de ma page

hello le forum

Un grand merci a tous
Mon probleme est résolu

Merci encore

A+
Guillaume