Class App Inherits WebApplication

End Class

Class Session Inherits WebSession

Const ErrorDialogCancel = "Do Not Send"

Const ErrorDialogMessage = "This application has encountered an error and cannot continue."

Const ErrorDialogQuestion = "Please describe what you were doing right before the error occurred:"

Const ErrorDialogSubmit = "Send"

Const ErrorThankYou = "Thank You"

Const ErrorThankYouMessage = "Your feedback helps us make improvements."

Const NoJavascriptInstructions = "To turn Javascript on, please refer to your browser settings window."

Const NoJavascriptMessage = "Javascript must be enabled to access this page."

End Class

Class WebPage1 Inherits WebPage

Sub Run() // please note that StyledText class is not fully functional in console apps! // but we use it only as container, which may work well Dim StyledText As New StyledText Dim rtf As String = TextArea1.Text rtf = ReplaceLineEndings(rtf, EndOfLine.UNIX) StyledText.RTFDataMBS = rtf Dim pdf As New DynapdfMBS pdf.SetLicenseKey "Starter" // For this example you can use a Starter, Lite, Pro or Enterprise License Call pdf.CreateNewPDF Nil // We want to use top-down coordinates Call pdf.SetPageCoords pdf.kpcTopDown Call pdf.Append Call pdf.SetFont "Times", pdf.kfsItalic, 20.0, True, pdf.kcpUnicode Call pdf.SetTextRect(50, 50, pdf.GetPageWidth-100, pdf.GetPageHeight-100) TextArea2.Text = pdf.ConvertStyledText(StyledText) // or better call WriteStyledText directy Call pdf.WriteStyledText(pdf.ktaLeft, StyledText) Call pdf.EndPage Call pdf.CloseFile pdfFile = New WebFile pdfFile.Data = pdf.GetBuffer pdfFile.Filename = "test.pdf" pdfFile.MIMEType = "application/pdf" #If XojoVersion >= 2020 Then HTMLViewer1.LoadURL pdfFile.URL #Else HTMLViewer1.URL = pdfFile.URL #EndIf End Sub

Property pdfFile As WebFile

End Class