Sub Main Dim rtf$ rtf$ = "{\rtf\.......}" 'replace with rtf-contents Msgbox Printer.SetRTF2text(rtf$) End Sub