Te printen kolom met variabele instellen

[erpee]

Ik heb een sub gemaakt waarmee ik een kolom (deels) kan printen. Dit werkt naar behoren

Sub Testprint()
    If ShowPrinterDialog Then
        Application.Dialogs(xlDialogPrinterSetup).Show
    End If
    
    ActiveSheet.PageSetup.Orientation = xlPortrait
    ActiveSheet.PageSetup.FitToPagesTall = 1
    ActiveSheet.PageSetup.FitToPagesWide = False
    'verwijzing moet dynamisch worden
    ActiveSheet.PageSetup.PrintArea = "$F$10:$F$22"
    ActiveSheet.PageSetup.Zoom = False
    
    ActiveWindow.SelectedSheets.PrintOut
End Sub

nu wil ik de Printarea met een variabele instellen.
Ik had bedacht om zo te openenen:

Sub Testprint(Printrij As Characters)

maar wat ik daarna ook probeer, ik kan 'm niet werkend krijgen. Zit ik op het verkeerde spoor of ????
Wie weet raad?

 

[Joske2000]

Ik vermoed dat deze doet wat je wil.
De variabele klm = de kolom (kolom 2 in dit geval)

Gr,

Joske

Sub Testprint()
    If ShowPrinterDialog Then
        Application.Dialogs(xlDialogPrinterSetup).Show
    End If
klm = 2
    
    ActiveSheet.PageSetup.Orientation = xlPortrait
    ActiveSheet.PageSetup.FitToPagesTall = 1
    ActiveSheet.PageSetup.FitToPagesWide = False
    'verwijzing moet dynamisch worden
    ActiveSheet.PageSetup.PrintArea = Range(Cells(10, klm), Cells(22, klm))
    ActiveSheet.PageSetup.Zoom = False
    
    ActiveWindow.SelectedSheets.PrintOut
End Sub