Opgelost Meerdere bereiken voor afdrukken aangeven

  • Onderwerp starter Onderwerp starter KeBr
  • Startdatum Startdatum
Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

KeBr

Gebruiker
Lid geworden
25 apr 2016
Berichten
183
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
 
markeer Printarea, sla op F1 en lees.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan