Ver Mensaje Individual
  #12  
Antiguo 06-07-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 264
Reputación: 2
pgranados Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Desconozco ese tema
Por probar, he preguntado al chatgpt y dice esto:
Código Delphi [-]
uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  // Ruta completa al archivo MHTML que deseas imprimir
  FileName := 'C:\ruta\al\archivo.mhtml';

  // Cargar el archivo MHTML en el TWebBrowser
  WebBrowser1.Navigate('file://' + FileName);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  OLECMDID_PRINT2: Integer;
  OLECMDEXECOPT_DONTPROMPTUSER: Integer;
begin
  // Constantes específicas para impresión en MHTML
  OLECMDID_PRINT2 := 6;
  OLECMDEXECOPT_DONTPROMPTUSER := 2;

  // Imprimir el contenido del TWebBrowser
  if WebBrowser1.OleObject.DocumentLoaded then
  begin
    WebBrowser1.OleObject.ExecWB(OLECMDID_PRINT2, OLECMDEXECOPT_DONTPROMPTUSER);
  end;
end;
Esto funciono de maravilla, aunque no se si sea posible ocultar el dialog de guardar archivo que se genera y que en el PDF no se imprima en el header y en el footer información del navegador

Gracias por tu aporte casimiro!
Responder Con Cita