$Book->ExportAsFixedFormat(
    {
        Type                 => xlTypePDF,
        Filename             => "$pdffilename",
        Quality              => $excel->{xlQualityStandard},
        IncludeDocProperties => $excel->{True},
        IgnorePrintAreas     => $excel->{False},
        OpenAfterPublish     => $excel->{False},
    }
);

##</code><code>##

' The next 2 lines will force the PDF to fit the range onto one page
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1

##</code><code>##

$sheet = $Book -> Worksheets("Sheet1");
$sheet -> Activate;
$sheet->PageSetup->FitToPagesWide = 1;
$sheet->PageSetup->FitToPagesTall = 1;