Select Code to Download

my $rpt = GTIMs::Report->new('Schedule::Daily', $args);
$rpt->create;   # populate the workbook with data
...
    $copies = 1 unless $copies;
    $self->{WorkBook}->PrintOut(Copies => 1);
}

   with ($Sheet->PageSetup,
        LeftHeader => '',
...
        PrintTitleRows => '$1:$2',
        PrintTitleColumns => '$A:$D',
    );

use constant xlDialogPrint => 8;

...
    my $dlg = $self->{Excel}->Dialogs(xlDialogPrint);
    my $response = $dlg->Show;
}