Dim PA As Paper
PA.Initialize()
PA = Paper_static.A4
Dim PL As PageLayout
PL.Initialize()
PL = pr.CreatePageLayout2(PA, PageOrientation_Static.PORTRAIT, "HARDWARE_MINIMUM")
Dim PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(pr)
PJ.GetJobSettings.SetCopies(count)
PJ.GetJobSettings.SetJobName(DateTime.Date(DateTime.Now))
PJ.PrintPage2(PL, frm.RootPane)
PJ.EndJob