Como costurar páginas da Web (paginadas) juntas em uma página para impressão

Question

Existe uma maneira de unir páginas da Web (paginadas)?

Por exemplo, quero imprimir este tópico , mas é dividido em 10 seções; Como posso juntá-las para tornar a impressão mais fácil e eficiente?

Eu preferiria uma solução rápida baseada na web, mas ferramentas off-line simples também seriam aceitáveis (eu fiz o download de cada seção e mesclei os arquivos manualmente em um arquivo html, antes ...)

Editar: Esqueci de mencionar que uso o Opera no Vista Enterprise

    

Answer 1

Se você não quer se incomodar com addons, pode tentar ver se há uma versão do site que despejará tudo para uma versão impressa.

Para a maioria dos fóruns, muitas vezes há uma versão lofi que remove a paginação e exibe o tópico inteiro na única página. O truque é encontrar a página / diretório para o software do fórum em particular.

No seu caso, o HealthBoards está sendo executado no vBulletin, e o caminho do lofi para isso é /archive/ . Este deve ser o novo caminho depois do diretório para as próprias pastas e ficará assim:

http://www.healthboards.com/boards/archive/index.php

De lá, você pode navegar de volta para o tópico e ver todas as postagens em uma única página.

A versão de captura rápida de um encadeamento do vBulletin:

O tópico original está aqui:

http://www.healthboards.com/boards/showthread.php?t=296667

A maneira rápida é pegar esse valor logo após o t= (e antes do próximo e comercial ( & ) no URL) e substituir conforme necessário no abaixo:

http://www.healthboards.com/boards/archive/index.php/t-296667.html

    

Answer 2

Se você estiver usando o Firefox, sugiro a extensão AutoPager . Ele percorrerá todas as páginas e as combinará em uma única página grande, e você poderá imprimir toda a página criada para você.

Para a maioria dos sites, ele pode unir automaticamente as páginas separadas em uma única página, mas para alguns você precisa dizer onde estão os links.

    

Answer 3

esta solução funciona para unix, mas tenho certeza que você pode encontrar equivalentes para o Vista.

primeiro, use wget para baixar os arquivos:

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

use então cat para concatená-los. Eu não sei o equivalente Windows deste comando, mas certamente deve haver um:

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

o arquivo hello.html será um grande arquivo com todas as páginas de discussão. você pode se irritar com o fato de que todas as páginas têm esse logo do vbulletin!

edit: aqui está wget para windows. claro, você poderia usar algum outro gerenciador de downloads

e aqui é como concatenar arquivos no Windows.

    

Answer 4

Existem aplicativos comerciais disponíveis se você não se importar em gastar algum dinheiro. Eu usei ClickBook de BlueSquirrel que, entre outras coisas, pode unir várias impressões.

    

Answer 5

Você pode fazer isso usando o Microsoft Excel (se tiver um :)) Ele tem a funcionalidade de fazer consultas na web (Menu: Dados > Importar dados externos > Consulta à Web)

Gravei macros VB e fiz algumas alterações, para que você possa adicionar endereços à primeira planilha, como: (cada endereço está na próxima célula)

link ............................................. / boards / printthread. php? t = 296667 & pp = 20 & pina = 2 ............................................. / boards / printthread. php? t = 296667 & pp = 20 & pina = 3

e, em seguida, execute essas macros e obtenha o resultado. Isso me ajudou.

macros:

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