Как сшить (разбитые на страницы) веб-страницы вместе в одну страницу для печати

Если Вы используете Firefox, я предлагаю расширение AutoPager. Это пройдет все страницы и объединит их в единственную большую страницу, затем можно просто распечатать целую страницу его созданный для Вас.

Для большинства сайтов это может автоматически присоединиться к разделять страницам в единственную страницу, но для некоторых необходимо сказать это, где ссылки.

Существуют коммерческие приложения там, если Вы не возражаете тратить некоторые деньги. Я использовал ClickBook от BlueSquirrel, который, среди прочего, может stich вместе несколько распечаток.

это решение работает на Unix, но я уверен, что можно найти эквиваленты для перспективы.

во-первых, используйте wget для загрузки файлов:

wget -nd -k -p "http://www.healthboards.com/boards/printthread.php?t=296667&pp=20&page="{1,2,3,4,5,6,7,8,9,10} --wait 5

затем используйте кошку для конкатенации их. я не знаю окна, эквивалентные из этой команды, но конечно, должен быть тот:

cat "printthread.php?t=296667&pp=20&page="* > hello.html

файл hello.html будет одним большим файлом со всеми страницами потока. Вы могли бы раздражаться тем, что все страницы имеют это vbulletin логотип хотя!

править: вот wget для окон. конечно, Вы могли использовать некоторый другой менеджер загрузок

и вот то, как связать файлы на окнах.

Можно сделать это с помощью Microsoft Excel (если Вы имеете один :)), Это имеет функциональность для создания веб-запросов (Меню: Данные> Импорт Внешние Данные> Веб-запрос)

Я записал макросы VB и внес некоторые изменения, таким образом, можно добавить адреса к первому Листу, как: (каждый адрес находится в следующей ячейке),

http://www.healthboards.com/boards/printthread.php?t=296667&pp=20&page=1............................................./boards/printthread.php? t=296667&pp=20&page=2............................................./boards/printthread.php? t=296667&pp=20&page=3

и затем выполненный эти макросы и получают результат. Это помогло мне.

макросы:

Sub Macro2()
'
' Macro2 Macro

'
Dim url As String
Dim count As Integer

Dim resaultSheet As String
Dim adressesSheet As String

  adressesSheet = ActiveSheet.Name
  resaultSheet = Sheets.Add().Name

Sheets(adressesSheet).Select
Sheets(adressesSheet).Cells(1, 1).Select

ActiveCell.SpecialCells(xlLastCell).Select

count = ActiveCell.Row

Sheets(resaultSheet).Select
Sheets(resaultSheet).Cells(1, 1).Select

For i = 1 To count

 url = "URL;" + Sheets(adressesSheet).Cells(i, 1)


 With ActiveSheet.QueryTables.Add(Connection:= _
        url, Destination _
        :=ActiveCell)
        .Name = "name"
         .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With

       ActiveCell.SpecialCells(xlLastCell).Select
        Cells(ActiveCell.Row + 1, 1).Select

Next i


End Sub