if ($PrintAsPDF==0)  
{
  our $dc = new Win32::Printer(
                  width           => $PageWidth,
                  height          => $PageHeight,
                  description     => 'Sample Description',
                  printer         => $PrinterName,
                  orientation     => $PageOrientation,
                  unit            => $Units);
} else {
  our $dc = new Win32::Printer(
                  width           => $PageWidth,
                  height          => $PageHeight,
                  description     => 'Sample Description',
                  printer         => $PrinterName,
                  file            => $PDFFileName.'.pdf',
                  pdf             => 1,
                  unit            => $Units);
}