[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(); }