Relatório de impressão

Bom dia pessoal
queria montar uma folha de relatório e  na hora que fosse imprimir sai-se 2 x na mesma folha para que manda-se uma via cliente e uma via empresa

Código:

Private Sub NomeBotão_Click()
On Error GoTo Err_imprimir_Click
Dim bytVias, bytLoop As Byte

 bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 2)
 If bytVias <> "" And bytVias <= 4 Then
   For bytLoop = 1 To bytVias
     If bytLoop = 1 Then MsrVersao = "ORIGINAL"
     If bytLoop = 2 Then MsrVersao = "DUPLICADO"
     If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
     If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
     DoCmd.OpenReport "NomeRelatório", , , "[ID]= Forms!NomeFormulário!ID"
   Next
 End If

ou

Código:

DoCmd.PrintOut , 1, 1, , 2


aqui a pagina 1 ate a 1 imprime 2 copias, pode mudar quanta copias e de quantas paginas

Olá Fernando,

Pelo que eu entendi, você quer que saiam 2 vias em uma mesma folha, correto?
O tamanho da folha seria A4?
É necessário analisar o relatório para saber se nele há a seção "Detalhes" e se esta seção varia de tamanho.
Um exemplo disso seria o "Orçamento de Vendas", onde na seção "Detalhes" varia de tamanho de acordo com os produtos selecionados.
Se houver muitos produtos, parte do relatório vai sem impresso em uma 2a. folha.

Se possível, mande um modelo de lay-out do relatório pretendido e seu banco de dados (somente partes envolvidas) para que o fórum possa analisar.

Um abraço.