afdrukbereik met VB

[biettie]

Ik heb een oplossing gevonden (van Warm Bakkertje) om een variabel bereik vast te stellen om een tabblad te printen:

De methode is een goede oplossing en werkt perfect, maar print niets na een verborgen kolom en stopt daar dan ook met het bereik. Na de verborgen kolom zijn er nog 2 kolommen die ik wil laten afdrukken.

Sub Set_Print_Area()

  Dim lastCell As Range
  Set lastCell = Columns(1).Find("*", [a1], , , , xlPrevious).Offset(1, 0)
  Do Until lastCell.Value <> ""
  Set lastCell = lastCell.Offset(-1, 0)
  Loop
  ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Resize(, 13).Address
  ActiveWindow.SelectedSheets.PrintPreview
End Sub

iemand een idee om de verborgen kolom 'M' over te slaan en de 2 kolomman erna bij het printbereik toe te voegen?

 

[jolivanes]

Wat gebeurd er als je

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Resize(, 13).Address

veranderd in

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Resize(, 15).Address

 

[biettie]

Wow, dat het zo simpel kon zijn...het werkt!
Hartelijk dank!