Buenos días, finalmente he encontrado esta solución por sí le sirve de ayuda a alguien. He pasado el contenido del memo a un fichero HTML y he empleado el código del botón de imprimir html del proyecto de Dani.
Código Delphi
[-]HtmlContent := TStringList.Create;
try
HtmlContent.Add('');
HtmlContent.Add('');
HtmlContent.Add('');
HtmlContent.Add(' ');
HtmlContent.Add(' Contenido del Memo');
HtmlContent.Add('');
HtmlContent.Add('');
HtmlContent.Add(' '
);
HtmlContent.Add(Memo1.Lines.Text); HtmlContent.Add('
');
HtmlContent.Add(
'');
HtmlContent.Add(
'');
FilePath := TPath.Combine(TPath.GetDocumentsPath,
'Ticket1.html');
HtmlContent.SaveToFile(FilePath);
ShowMessage(
'Archivo HTML guardado en: ' + FilePath);
finally
HtmlContent.Free;
end;
Un saludo.