Imprimir archivo HTML

[Andrés Oscar Gimbatti]

Estimados,

necesito imprimir un archivo HTML a la impresora y que no salgan los encabezados o pie de página que agrega automáticamente el navegador

Ahora estoy usando este método, pero me imprime los encabezados y pie

loIE = CREATEOBJECT([InternetExplorer.Application])
loIE.NAVIGATE("c:\temp\159.html")
INKEY(2)
* IMPRIME
loIE.ExecWB(6,2)

Cualquier sugerencia será bienvenida

Saludos

[Erick Lezama]

un html es basicamente texto incluso editable via notepad

usate filetostr() y strtofile() y remueve lo que no necesitas con juego de caracteres como strtran(), substr(), at(), y luego envialo a imprimir

esos encabezados y pie de pagina casi seguro siguen patrones

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/a9a65c50-1e31-4d52-9ed8-b97ce7863e7an%40googlegroups.com.

[Victor Espina]

Se dice mas facil de lo que es hacerlo en la practica de una manera general (que sirva para cualquier HTML). 

Victor Espina

[Juan Gonzalez]

* Establece valores en el registro para IE - Encabezado y Pie vacíos
LOCAL loShell
loShell = CREATEOBJECT("WScript.Shell")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", "")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", "")

* Crea instancia de Internet Explorer

loIE = CREATEOBJECT("InternetExplorer.Application")

loIE.VISIBLE = .F.  && Opcional: .T. para mostrarlo

* Navega al archivo HTML
loIE.NAVIGATE("C:\temp\159.html")

* Espera a que cargue completamente
DO WHILE loIE.BUSY OR loIE.READYSTATE <> 4
    DOEVENTS
ENDDO

* Imprime sin mostrar el cuadro de diálogo
loIE.ExecWB(6, 2)  && 6 = Print, 2 = Don't prompt user

* Cierra IE
loIE.Quit
RELEASE loIE

Libre de virus.www.avast.com

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/c3debd4e-6c1e-408e-81ac-8581f95f28e9n%40googlegroups.com.

[Juan Gonzalez]

sino has un bat....   con lo siguiente:  @echo off
echo Quitando encabezado y pie de página de impresión de IE...

REM Eliminar encabezado
reg add "HKCU\Software\Microsoft\Internet Explorer\PageSetup" /v header /t REG_SZ /d "" /f

REM Eliminar pie de página
reg add "HKCU\Software\Microsoft\Internet Explorer\PageSetup" /v footer /t REG_SZ /d "" /f

echo Configuración aplicada. Ahora puedes imprimir sin encabezado ni pie de página.
pause    

ejecutalo antes de imprimir

[Andrés Oscar Gimbatti]

Con esto me funciono perfectamente lo que necesitaba

* Establece valores en el registro para IE - Encabezado y Pie vacíos
LOCAL loShell
loShell = CREATEOBJECT("WScript.Shell")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\header", "")
loShell.RegWrite("HKCU\Software\Microsoft\Internet Explorer\PageSetup\footer", "")

Gracias !!!!

Saludos

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/q6c64EJey40/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CACBth-qjvYOVoV5qW1tHoQHhD4ANkROJbrupw6rrQ7zZq%2BAM-w%40mail.gmail.com.

[Hurricane]

Hi,

try this

LOCAL oShell, arquivoHTML

arquivoHTML = "C:\caminho\arquivo.html"

oShell = CREATEOBJECT("Shell.Application")

oShell.ShellExecute(arquivoHTML, "", "", "print", 1)

RELEASE oShell

Regards,

Hurricane
Site | Blog | Survey for (x)Harbour users

[Miguel Angel Quinzan]

gracias, por compartir esa rutina aprendi mucho...  muy muy agradecido

Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/1287822407.818914.1758829414062%40mail.yahoo.com.

--

Miguel Ángel Quinzán