Beste,
Op het forum hier heb ik onderstaande code gevonden om een afdrukbereik te bepalen.
Hoe kan ik deze aanpassen zodat de eerste 10 kolommen altijd worden meegenomen en dat voor het 2e (vanaf kolom K) deel via een MsgBox ingegeven kan worden welke kolommen.
In de sheet zitten bijna 900 kolommen. dit kan ook altijd wisselen.
Sub Afdrukken()
ActiveSheet.PageSetup.PrintArea = "$A$1:$R$" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
End Sub
Op het forum hier heb ik onderstaande code gevonden om een afdrukbereik te bepalen.
Hoe kan ik deze aanpassen zodat de eerste 10 kolommen altijd worden meegenomen en dat voor het 2e (vanaf kolom K) deel via een MsgBox ingegeven kan worden welke kolommen.
In de sheet zitten bijna 900 kolommen. dit kan ook altijd wisselen.
Sub Afdrukken()
ActiveSheet.PageSetup.PrintArea = "$A$1:$R$" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
End Sub