[VB]
Private Sub Command1_Click()
    With gtPDFEngineX1
        .FileName = "Sample.pdf"
        .PrefEmbedTrueTypeFonts = etfFull
        .FontEmbedExcludeList = "Arial;Courier New;Verdana"

        .BeginDoc
            .Font.Name = "Arial"
            .TextOutXY 1, 1, "This sentence is in Arial font."
    
            .Font.Name = "Times New Roman"
            .TextOutXY 1, 2, "This sentence is in Times New Roman font."
    
            .Font.Name = "Courier New"
            .TextOutXY 1, 3, "This sentence is in Courier New font."
    
            .Font.Name = "Microsoft Sans Serif"
            .TextOutXY 1, 4, "This sentence is in Microsoft Sans Serif font."
    
            .Font.Name = "Verdana"
            .TextOutXY 1, 5, "This sentence is in Verdana font."
    
            .Font.Name = "Tahoma"
            .TextOutXY 1, 6, "This sentence is in Tahoma font."
        .EndDoc
    End With
End Sub

[C#]
private void button1_Click(object sender, EventArgs e)
{
	axgtPDFEngineX1.FileName = "Sample.pdf";
	axgtPDFEngineX1.PrefEmbedTrueTypeFonts = eDocEngineX.TxgtTTFontEmbedding.etfFull;
	axgtPDFEngineX1.FontEmbedExcludeList = "Arial;Courier New;Verdana";

	axgtPDFEngineX1.BeginDoc();
	Font newFont1 = new Font("Arial",10);
	axgtPDFEngineX1.Font = newFont1;
	axgtPDFEngineX1.TextOutXY(1, 1, "This sentence is in Arial font.");

	Font newFont2 = new Font("Times New Roman",10);
	axgtPDFEngineX1.Font = newFont2;
	axgtPDFEngineX1.TextOutXY(1, 2, "This sentence is in Times New Roman font.");

	Font newFont3 = new Font("Courier New", 10);
	axgtPDFEngineX1.Font = newFont3;
	axgtPDFEngineX1.TextOutXY(1, 3, "This sentence is in Courier New font.");

	Font newFont4 = new Font("Microsoft Sans Serif", 10);
	axgtPDFEngineX1.Font = newFont4;
	axgtPDFEngineX1.TextOutXY(1, 4, "This sentence is in Microsoft Sans Serif font.");

	Font newFont5 = new Font("Verdana", 10);
	axgtPDFEngineX1.Font = newFont5;
	axgtPDFEngineX1.TextOutXY(1, 5, "This sentence is in Verdana font.");

	Font newFont6 = new Font("Tahoma", 10);
	axgtPDFEngineX1.Font = newFont6;
	axgtPDFEngineX1.TextOutXY(1, 6, "This sentence is in Tahoma font.");
	axgtPDFEngineX1.EndDoc();
}