Macro voor het opslaan van geselecteerde printarea

[Bert2010]

Beste helpers,
Wie kan mij helpen bij het programeren van een macro voor het opslaan van een in een werkblad geselecteerde printarea in b.v. D:\Test
Hartelijk dank,
Bert

 

[edmoor]

Kun je daar de macro recorder niet voor gebruiken?

 

[Bert2010]

Beste helpers,
Wie kan mij helpen bij het programeren van een macro voor het opslaan van een in een werkblad geselecteerde printarea in b.v. D:\Test
Hartelijk dank,
Bert

 

[Wigi]

Bijvoorbeeld:

Sub Facturen_opslaan()
    Application.ScreenUpdating = False
    c0 = Range("AH6").Text
    Set wb = Workbooks.Add
    With ThisWorkbook.Sheets(1).Range("Print_Area")
        On Error Resume Next
        .Copy
        wb.Sheets(1).Range("A1").PasteSpecial xlPasteColumnWidths
        .Copy wb.Sheets(1).Range("A1")
    End With
    sfile = "C:\" & c0 & ".xlsx"
    If Len(Dir(sfile)) Then Kill sfile
    wb.SaveAs sfile
    wb.Close
End Sub