Hi. I am using the PDF functions. I trying to print the contents odf a RichBox. (text format only). I am casting to a metafile, but the font size is not as big as the font diaplyed in the RTF on the form... how do I make the output the same (or bigger) that what is displayed on the form.
Here is my basic code:
Dim text As String = txtScript.Text
'reader.Close()
'Convert it to metafile.
Dim metafile As PdfMetafile = DirectCast(PdfImage.FromRtf(text, bounds.Width, PdfImageType.Metafile), PdfMetafile)
Dim format As New PdfMetafileLayoutFormat()
'Allow text to flow multiple pages without any break.
format.SplitTextLines = True
'Draws image.
metafile.Draw(page, 0, 0, format)
'Save the document.
doc.Save("Output.pdf")
doc.Close(True)
