Sub PrintBitmap (bmp As Bitmap)
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim photoPrinter As JavaObject
photoPrinter.InitializeNewInstance("android.support.v4.print.PrintHelper", Array(ctxt))
If photoPrinter.RunMethod("systemSupportsPrint", Null) = True Then
'FIT = 1, FILL = 2
photoPrinter.RunMethod("setScaleMode", Array(1))
Dim ev As Object = photoPrinter.CreateEventFromUI("android.support.v4.print.PrintHelper.OnPrintFinishCallback", "finish", Null)
photoPrinter.RunMethod("printBitmap", Array("Printer Job Name", _
bmp, ev))
Else
Log("Printing not supported.")
End If
End Sub
Sub finish_Event (MethodName As String, Args() As Object) As Object
Log("Finished!")
Return Null
End Sub