Help for this page

Select Code to Download


  1. or download this
        With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$2"
        .PrintTitleColumns = ""
        .PrintArea = "$B:$I"
    End With
  2. or download this
    my $pl = "";
open(TXT, "<mymacro.txt");
...
open(TXT, ">mymacro.pl");
print TXT $pl;
close(TXT);
  3. or download this
    $Range = $ActiveSheet->PageSetup;
with ($Range,
...
    PrintTitleColumns => '',
    PrintArea => '$B:$I',
);