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 
				 
 
		 
 
		 
 
		 
 
		