program NotEmbeddedFontsExample;

{$APPTYPE CONSOLE}

uses

SysUtils, Graphics, Classes, HPDFDoc;

var

HPDF: THotPDF;

begin

HPDF:= THotPDF.Create(nil );

try

HPDF.AutoLaunch := true;// PDF-fil vil blive vist automatisk

HPDF.FileName :='NotEmbeddedFontsExample.pdf';           

HPDF.FontEmbedding :=true;                                    // Indlejr skrifttyper som standard

  HPDF.NotEmbeddedFonts.Add('Arial' ); // Arial vil ikke blive indlejret

HPDF.BeginDoc;// Opret PDF-fil

HPDF.CurrentPage.SetFont('Arial', [], 12 );                     // Denne skrifttype forbliver ekstern

HPDF.CurrentPage.TextOut(10, 10, 0, 'Arial is excluded from embedding');// Udskriv tekst

HPDF.EndDoc;// Luk PDF-fil

finally

HPDF.Free;

end;

end.