Sub Initialize_A4(textstring As String)
MainView.Initialize("", 0,0)
' MainView.WindowWidth = 605 'For A4 605x870
' MainView.WindowHeight = 870 'For A4 605x870
MainView.RootPane.LoadLayout("A4Size.bjl") '---->>> For A4 605x870 <<<----
MainView.Title = SharedCode.JopView
MainView.Icon = fx.LoadImage(File.DirAssets, "Untitled - 4.png")
MainView.WindowHeight = fx.PrimaryScreen.MaxY - fx.PrimaryScreen.MinY
LblTotal.Text = textstring
MainView.ShowAndWait
If LblTotal.Text <> "" Then
Dim PA As Paper
PA.Initialize()
PA = Paper_static.A4
Private PR As Printer
PR.Initialize()
PR = Printer_Static.GetDefaultPrinter
Private PL As PageLayout
PL.Initialize()
PL = PR.CreatePageLayout2(PA, PageOrientation_Static.PORTRAIT, "DEFAULT") '"HARDWARE_MINIMUM")
Private PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(PR)
Dim JS As JobSettings = PJ.GetJobSettings
JS.SetJobName("New 1")
PJ.PrintPage2(PL, LblTotal)
If PJ.EndJob Then
Dim myClipBoard As JavaObject
myClipBoard.InitializeStatic("javafx.scene.input.Clipboard")
myClipBoard.RunMethodJO("getSystemClipboard",Null).RunMethod("clear",Null)
Main.xui.Msgbox2Async("Successfully spooleded to the printer queue.", "Printer Job","OK","","",Null)
End If
End If
End Sub