[kapetang]

Ο παρακάτω κώδικας, ορίζει μία περιοχή ως PrintArea και την εκτυπώνει.

Sub SetPrintArea()

    ActiveSheet.PageSetup.PrintArea = "$A$1:$K$29"    'Να οριστεί  σωστά
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                                         IgnorePrintAreas:=False

End Sub

Χρησιμοποιεί τις προεπιλεγμένες ρυθμίσεις.