Я пытаюсь автоматически распечатать веб-страницу в виде документа XPS без каких-либо подсказок, чтобы она могла работать без присмотра.Мне удалось создать следующий код, который с помощью документа create и .xps находится в нужном месте, но он пуст.Я не могу понять, как сказать, что я хочу, чтобы он распечатал веб-страницу.Я добавил обработчик печати, но я не знаю, как ссылаться на страницу IE, все, что я нахожу в Интернете - это формы.Я устанавливаю переменную IE_Window при создании окна.
Sub printXPS(FileName As String)
Dim prn As New PrintDocument()
If My.Computer.FileSystem.FileExists(FileName) Then
My.Computer.FileSystem.DeleteFile(FileName)
End If
With prn
.PrinterSettings.PrinterName = "Microsoft XPS Document Writer"
.DefaultPageSettings.PrinterSettings.PrintToFile = True
.DefaultPageSettings.PrinterSettings.PrintFileName = FileName
AddHandler .PrintPage, AddressOf PrintPageHandler
.Print()
End With
End Sub
Private Sub PrintPageHandler(ByVal sender As Object, ByVal args As Printing.PrintPageEventArgs)
IE_window.print()
End Sub