VBA - udvide CurrentRegion

Set Cr = ActiveCell.CurrentRegion
Cr.Resize(Cr.Rows.Count + 1, Cr.Columns.Count)
ActiveSheet.PageSetup.PrintArea = Cr.Address

Lige lidt for kvikt. :-)
Set Cr = ActiveCell.CurrentRegion
Cr.Resize(Cr.Rows.Count + 1, Cr.Columns.Count).select
ActiveSheet.PageSetup.PrintArea = Cr.Address

Hmm, det virker ikke.
Området bliver selected rigtigt nok, men når man så skriver ud går den tilbage og sætter PrintArea til det oprindelige :-|

Hvis du bare vil printe det, kan du så ikke bruge denne ??
Set cr = ActiveCell.CurrentRegion
cr.Resize(cr.Rows.Count + 1, cr.Columns.Count).Select
Selection.PrintOut Copies:=1, Collate:=True

ellers
Set cr = ActiveCell.CurrentRegion
Set cr = cr.Resize(cr.Rows.Count + 1, cr.Columns.Count)
ActiveSheet.PageSetup.PrintArea = cr.Address

Glimrende Bak ... :-) Virket fint.

En skam det bare ikke løser mit problem.
Jeg har et område med sorte rammer omkring alle celler
Når man bruger almindeligt autofilter smider den af en eller anden grund rammerne væk om den sidste række.
Det er derfor jeg prøvede ovenstående stunt. Det virker fint når filteret står på "all", men når jeg laver en selection går det galt.
Selv med ovenstående kan jeg ikke tvinge rammerne på ....

Jan - den nederste ramme. På den første tomme række sætter du en ramme øverst :-)

Men du har jo løst det jeg spurgte om, så mange tak for hjælpen.

Ærgeligt, at Excel nogle gange opfører sig yderst uforståeligt :-)

Hvis nederste række skjules, så er det nu forståeligt nok, at rammen også skjules - synes jeg.

Selvom filteret ikke omfatter række 65536 giver det også problemet.
Jeg prøver lige at lave et eksempel, som jeg så kan sende dig.
Den oprindelige fil fylder over 10 mb, så det er lige voldsomt nok.

Til information kan jeg oplyse, at ovenstående har vist sig at være en bug i Excel97.