Bom dia!!

'não testado!
'Não foi executado o comando para imprimir (Use [code].PrintOut[/code])
Sub AleVBA_18102()
    Worksheets("Plan1").UsedRange.Copy Worksheets("Plan2").Range("A1").End(xlDown).Offset(1, 0)
    For MY_ROWS = 2 To Range("A65536").End(xlUp).Row Step 8
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & MY_ROWS)
    Next MY_ROWS
End Sub

Para imprimir leia:
https://msdn.microsoft.com/en-us/librar ... 38253.aspx
http://www.rondebruin.nl/win/s9/win010.htm

Att

Obrigado pela ajuda alexandrevba, mas não é bem isso que pretendia.

Pode dar uma olha no meu ficheiro http://www.wikiupload.com/GL8EFS474SGYGQC que coloquei para vocês verem.

O que eu pretendo mesmo, é o seguinte:

- Na plan1 existe a base de dados,
- Na plan2 existe o "template";
- Eu pretendo imprimir a listagem automaticamente para o template, usando por exemplo um X na coluna A;
- Se colocar diversos X na coluna A ele passava todas essas linhas para o template, mas se mais de oito X selecionados, ele teria de criar uma segunda folha plan2 para colocar o resto da informação, porque no template apenas tem 8 linhas.

Pode ajudar?

Obrigado

Boa tarde!!

No trabalho eu não tenho acesso a portais de hospedadem de arquivo e etc.

Caso puder, poste o arquivo aqui no fórum!!

Att

Desculpa, não sabia que dava para anexar aqui.

Aqui tem o ficheiro se puder ajudar.

Alguem pode ajudaR?

Não entendi por que a Plan2 não pode ter mais que 8 linhas? É apenas porque esse é o formato que cabe na folha ao imprimir? Se for isso, os dados podem ficar na Pla2 desde que a impressão seja corretamente configurada.

Aproveitei a macro do Alexandre e fiz uma outra.