Ver Mensaje Individual
  #6  
Antiguo 02-10-2024
jmbarrio jmbarrio is offline
Miembro
 
Registrado: may 2003
Posts: 102
Reputación: 22
jmbarrio Va por buen camino
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);  // Agregar el contenido del TMemo
    HtmlContent.Add('    
'
); HtmlContent.Add(''); HtmlContent.Add(''); // Obtener la ruta para guardar el archivo en el almacenamiento del dispositivo FilePath := TPath.Combine(TPath.GetDocumentsPath, 'Ticket1.html'); // Guardar el archivo HTML HtmlContent.SaveToFile(FilePath); // Mensaje opcional de éxito ShowMessage('Archivo HTML guardado en: ' + FilePath); finally HtmlContent.Free; end;

Un saludo.
Responder Con Cita