Dag Eric,
Dat kan. De volgende code legt de print area van een sheet op de laatste 4 kolommen:
Sub Print4C()
Dim lastcol As Integer
With ActiveSheet
lastcol = .UsedRange.Columns.Count
.PageSetup.PrintArea = .Range(.Cells(1, lastcol - 3), .Cells(65536, lastcol)).Address
End With
End Sub
Je kan die code dan aanroepen door ALT+F8 en dan "Print4C" te kiezen, of je kan dat automatiseren door de code te laten uitvoeren door een workbook event:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Call Print4C
End Sub
Voorbeeld in bijlage. Succes,
Bart