HRESULT PDFPAGE_SetActiveFont ( BSTR fontName, VARIANT_BOOL fontStyleBold, VARIANT_BOOL fontStyleItalic, VARIANT_BOOL fontStyleUnderline, VARIANT_BOOL fontStyleStrikeOut, DOUBLE fontSize, TxFontCharset fontCharset ) |
This procedure sets the active font for text operations. fontName is the name of a TrueType, Type1, or Standard Adobe Base14 font or the value returned from methods AddTTFFontFromFile, AddTTFFontFromFile2, AddType1FontFromFile. For CJK fonts, you can use both ANSI and unicode font names.
For symbolic fonts, such as "Symbol", "ZapfDingbats" (Type1), or "Marlett" (TrueType), it is strongly recommended that you set fontCharset = charsetDEFAULT_charset, to guarantee that the text will display correctly.
Equivalent in new interface: IPDFDocument4::UseFont.
{ PDF object is supposed to be created } PDF.BeginDoc; PDF.PDFPAGE_SetActiveFont('Helvetica', false, false, false, false, 16.0, 0); PDF.PDFPAGE_TextOut(20, 20, 0.0, 'Helvetica Font.'); PDF.PDFPAGE_SetActiveFont('Courier', false, false, false, false, 16.0, 0); PDF.PDFPAGE_TextOut(20, 40, 0.0, 'Courier Font.'); PDF.PDFPAGE_SetActiveFont('Times New Roman', false, false, false, false, 16.0, 0); PDF.PDFPAGE_TextOut(20, 60, 0.0, 'Times New Roman Font.'); PDF.EndDoc;
// PDF object is supposed to be created PDF->BeginDoc(); PDF->PDFPAGE_SetActiveFont("Helvetica", FALSE, FALSE, FALSE, FALSE, 16.0, 0); PDF->PDFPAGE_TextOut(20, 20, 0.0, "Helvetica Font."); PDF->PDFPAGE_SetActiveFont("Courier", FALSE, FALSE, FALSE, FALSE, 16.0, 0); PDF->PDFPAGE_TextOut(20, 40, 0.0, "Courier Font."); PDF->PDFPAGE_SetActiveFont("Times New Roman", FALSE, FALSE, FALSE, FALSE, 16.0, 0); PDF->PDFPAGE_TextOut(20, 60, 0.0, "Times New Roman Font."); PDF->EndDoc();
// PDF object is supposed to be created PDF.BeginDoc(); PDF.PDFPAGE_SetActiveFont("Helvetica", false, false, false, false, 16.0, 0); PDF.PDFPAGE_TextOut(20, 20, 0.0, "Helvetica Font."); PDF.PDFPAGE_SetActiveFont("Courier", false, false, false, false, 16.0, 0); PDF.PDFPAGE_TextOut(20, 40, 0.0, "Courier Font."); PDF.PDFPAGE_SetActiveFont("Times New Roman", false, false, false, false, 16.0, 0); PDF.PDFPAGE_TextOut(20, 60, 0.0, "Times New Roman Font."); PDF.EndDoc();
' PDF object is supposed to be created PDF.BeginDoc PDF.PDFPAGE_SetActiveFont "Helvetica", False, False, False, False, 16.0, 0 PDF.PDFPAGE_TextOut 20, 20, 0.0, "Helvetica Font." PDF.PDFPAGE_SetActiveFont "Courier", False, False, False, False, 16.0, 0 PDF.PDFPAGE_TextOut 20, 40, 0.0, "Courier Font." PDF.PDFPAGE_SetActiveFont "Times New Roman", False, False, False, False, 16.0, 0 PDF.PDFPAGE_TextOut 20, 60, 0.0, "Times New Roman Font." PDF.EndDoc