B4J Question jfx8print bbcodeview mystery

    Dim iv As ImageView = BBCodeViewM.ForegroundImageView
    Dim bmp As Image = iv.getimage
    Dim newiv As ImageView
    newiv.Initialize("")
    Try
        newiv.SetImage(bmp)
        Log("newiv set")
    Catch
        Log(LastException.message)
    End Try
    Dim P As Printer = Printer_Static.GetDefaultPrinter
    Dim PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(P)
    PJ.ShowPrintDialog(Null)
    Private pl As PageLayout = P.CreatePageLayout(P.GetPrinterAttributes.GetDefaultPaper, PageOrientation_Static.PORTRAIT, 0.5, 0.5, 0.5, 0.5)
    PJ.GetJobSettings.SetPageLayout(pl)
    If PJ.ShowPrintDialog(Null) Then PJ.PrintPage(ScaleOutput(P, newiv))
    PJ.EndJob