Sub RadioButtonMIX_CheckedChange(Checked As Boolean)
Printer.ClearBuffer
Printer.AddBuffer_Writeline("TEST - Mixed Text and Image")
Printer.AddBuffer_Writeline("012345678901234567890123456789-F")
'Printer.AddBuffer_Bitmap(LoadBitmap(File.DirAssets,"qr.jpg"),0)
Printer.AddBuffer_Bitmap(LoadBitmap(File.DirAssets,"qr.jpg").Resize (100, 100, True),0)
Printer.AddBuffer_Writeline("END PRINT")
Preview.Panel.Height=Printer.Preview.Height
Preview.Panel.SetBackgroundImage(Printer.Preview)
End Sub