Afdrukbereik kopieren naar een bestand ?

[Abco_B]

Is het mogelijk een ingesteld afdrukbereik via een makro naar een nieuw excelbestand te kopieren ?

Op deze manier kan ik dan eenvoudig een bepaald deel van een basisbestand als attachment mailen.

Abco

 

[richard1970]

Beste Abco,

Hier en voorzetje:
Sub Afdrukbereik_als_bestand()
Application.Goto Reference:="Print_Area" 'Dit is het afdrukgebied
Selection.Copy 'Hier kopieer je het mee
Workbooks.Add 'Hiermee open je een leeg bestand
ActiveSheet.Paste 'Hier plak je het afdrukgebied
Application.CutCopyMode = False 'Hiermee wordt het geheugn geleegd
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Eigenaar\Mijn documenten\Helpmij.nl\test.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False 'Hiermee sla je het bestand op
End Sub

 

[Abco_B]

Beste Richard,

Dit werkt prima, bedankt !

Het enige probleem is nog dat kolombreedtes en rijhoogtes niet automatisch worden meegenomen.
Is daar nog een oplossing voor ?

Abco

 

[richard1970]

Yep. Dan komt er één regeltje bij.

Sub Afdrukbereik_als_bestand()
Application.Goto Reference:="Print_Area"
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteColumnWidths
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Eigenaar\Mijn documenten\Helpmij.nl\test.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

Succes en welterusten,

Richard

 

[Abco_B]

Beste Richard,

Uitgeslapen ?

Bedankt tot zover, het werkt goed.

Ik begrijp dat je met plakken speciaal dus wel kolombreedtes maar geen rijhoogtes kunt plakken.

Groeten,

Abco

 

[richard1970]

Hoi Abco,

Jawel, ook dat kan, maar dan wel wanneer je alle opmaak kopieert:
Selection.PasteSpecial Paste:=xlPasteValues 'plakt alleen de waarden
Selection.PasteSpecial Paste:=xlPasteFormats 'Plakt de opmaak waaronder rijhoogtes
Selection.PasteSpecial Paste:=xlPasteColumnWidths 'plakt kolombreedte

En dit allemaal onder Office 2003.

Groeten,

Richard

 

[Abco_B]

Richard,

Nogmaals bedankt voor de uitleg.

Abco