Печать из WebBrowser

[dr.MIG]

У меня такая проблема: программа динамически генерирует документ HTML. А в нём таблицу. Для отображения документа использую элемент управления WebBrowser. Необходимо напечатать этот документ. Для этого в HTML-документ вставлена кнопка, нажатие на которую вызывает функцию (JavaScript) печати документа:
function pr_doc(text)
{
text=document;
print(text);
}
Всё печатается, но проблема в том, что кроме таблицы, вверху страницы печатается "Стр.1 из 1", а внизу страницы печатается путь к файлу. Вопрос: как этого избежать, т.е. сделать так, чтобы печаталась одна таблица? Может печатать средствами VB, а не JavaScript? Если да, то как?

[Konst_One]

Кидай тулбар Toolbar1 и браузер WEB на форму:

Код: Выделить всё

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim c As SHDocVwCtl.OLECMDF
On Error Resume Next
   
    Select Case Button.Key
        Case "Preview"
            c = Me.WEB.QueryStatusWB(OLECMDID_PRINTPREVIEW)
            If (c And OLECMDF_ENABLED) Then
                Me.WEB.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT
            Else
                MsgBox "Данный броузер не поддерживает режим предварительного просмотра.", vbInformation
            End If
        Case "PageOrientation"
            c = Me.WEB.QueryStatusWB(OLECMDID_PAGESETUP)
            If (c And OLECMDF_ENABLED) Then
                Me.WEB.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER
            Else
                MsgBox "Данный броузер не позволяет вызвать диалог настройки страницы.", vbInformation
            End If
        Case "Print"
            c = Me.WEB.QueryStatusWB(OLECMDID_PRINT)
            If (c And OLECMDF_ENABLED) Then
                Me.WEB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
            Else
                MsgBox "Принтер не готов.", vbInformation
            End If
        Case "Exit"
            Unload Me
    End Select
End Sub

а header и footer надо убивать перед печатью в реестре для твоего текущего юзера IE, а потом опять восстанавливать

[dr.MIG]

Konst_One, большое СПАСИБО за пример!

[Grimm]

Konst_One
можно ли header и footer отключить для данного докумета, в данном webbrowser?

[Konst_One]

Grimm
можно, ищи по форуму, я уже раньше выкладывал

[Grimm]

ты написал про изменения значений реестра, ет не дело, надо как то элегантнее что ли, без топора

[hCORe]

А если без топора и на любимом C++, то http://support.microsoft.com/kb/q236777/

Под VB придется писать библиотеку-"обертку".

[Grimm]

а кроме библиотеки-обертки никак?

[marvan]

Можно попробовать отправлять на печать изображение окна браузера

Подробности получения изображения от ANDLL здесь

Только это не самый лёгкий способ.

[Grimm]

жесть, ладно сформулирую вопрос по иному
header и footer являются едиными для всех документов, то есть являются свойствами эксплорера, значит не возможно изменить их для конкретного документа, поправьте если я не прав?

[GSerg]

Поменять можно много чего, в том числе, наверное, и это.
Но тебе не понравится.
http://bbs.vbstreets.ru/viewtopic.php?p=6603084#6603084

[Konst_One]

Grimm
и наконец то ты сам догадался, а то мы уж устали, чес слово

[Grimm]

спасибо за терпение