using IronPdf;

// Cadena RTF de ejemplo (acuerdo de procesamiento de datos LOPDGDD)
const string exampleRtfString = @"
    {\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset2 Symbol;}}
    {\*\generator Riched20 10.0.15063}\viewkind4\uc1
    \pard\sa200\sl276\slmult1\f0\fs22\lang9 Párrafo\par

    \pard{\pntext\f1\'B7\tab}{\*\pn\pnlvlblt\pnf1\pnindent0{\pntxtb\'B7}}\fi-360\li720\sa200\sl276\slmult1 Punto 1\par
    {\pntext\f1\'B7\tab}Punto 2\par

    \pard\sa200\sl276\slmult1 Párrafo 2\par

    \pard
    {\pntext\f0 1.\tab}{\*\pn\pnlvlbody\pnf0\pnindent0\pnstart1\pndec{\pntxta.}}
    \fi-360\li720\sa200\sl276\slmult1 Elemento 1\par
    {\pntext\f0 2.\tab}Elemento 2\par
    }
    ";

// Instanciar el renderizador
var renderer = new ChromePdfRenderer();

// Cargar el RTF como archivo o cadena (contrato legacy para conversión a PDF/A)
PdfDocument pdfFromFile = renderer.RenderRtfFileAsPdf("contrato-legacy.rtf");
PdfDocument pdfFromString = renderer.RenderRtfStringAsPdf(exampleRtfString);

// Guardar como PDF conforme a normativa española
pdfFromFile.SaveAs("informe-fiscal.rtf".Replace(".rtf", ".pdf"));
pdfFromString.SaveAs("acuerdo-lopdgdd.pdf");

Imports IronPdf

' Cadena RTF de ejemplo (acuerdo de procesamiento de datos LOPDGDD)
Const exampleRtfString As String = "
    {\rtf1\ansi\ansicpg1252\deff0\nouicompat\deflang1033{\fonttbl{\f0\fnil\fcharset0 Calibri;}{\f1\fnil\fcharset2 Symbol;}}
    {\*\generator Riched20 10.0.15063}\viewkind4\uc1
    \pard\sa200\sl276\slmult1\f0\fs22\lang9 Párrafo\par

    \pard{\pntext\f1\'B7\tab}{\*\pn\pnlvlblt\pnf1\pnindent0{\pntxtb\'B7}}\fi-360\li720\sa200\sl276\slmult1 Punto 1\par
    {\pntext\f1\'B7\tab}Punto 2\par

    \pard\sa200\sl276\slmult1 Párrafo 2\par

    \pard
    {\pntext\f0 1.\tab}{\*\pn\pnlvlbody\pnf0\pnindent0\pnstart1\pndec{\pntxta.}}
    \fi-360\li720\sa200\sl276\slmult1 Elemento 1\par
    {\pntext\f0 2.\tab}Elemento 2\par
    }
    "

' Instanciar el renderizador
Dim renderer As New ChromePdfRenderer()

' Cargar el RTF como archivo o cadena (contrato legacy para conversión a PDF/A)
Dim pdfFromFile As PdfDocument = renderer.RenderRtfFileAsPdf("contrato-legacy.rtf")
Dim pdfFromString As PdfDocument = renderer.RenderRtfStringAsPdf(exampleRtfString)

' Guardar como PDF conforme a normativa española
pdfFromFile.SaveAs("informe-fiscal.rtf".Replace(".rtf", ".pdf"))
pdfFromString.SaveAs("acuerdo-lopdgdd.pdf")