Hi,
I followed William's suggestion like this
but when printig to Adobe PDF, all I get is a blank page. Do you know why?
I followed William's suggestion like this
B4X:
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