Dim FileName As String = "Geleide"&Formuliernr.Text
Dim Out As OutputStream = File.OpenOutput(Provider.SharedFolder,FileName&".jpg", False)
btnMail.Visible=False
Dim PanelShot As B4XBitmap = ScrollView2D1.Panel.As(B4XView).SnapShot
PanelShot.WriteToStream(Out, 50, "JPEG")
Out.Close
Dim PDF As PdfDocument
PDF.Initialize
PDF.StartPage(595, 842) 'A4 size
Dim DestRec As Rect
DestRec.Initialize(0,0,595,842)
PDF.Canvas.DrawBitmap(PanelShot,Null,DestRec)
PDF.FinishPage
Dim Out2 As OutputStream = File.OpenOutput(Provider.SharedFolder,FileName&".pdf", False)
PDF.WriteToStream(Out2)
Out2.Close
PDF.Close