[Resolvido]Imprimir várias cópias direto para a impressora

Bom dia...
gostaria de um comando que eu pudesse mandar a impressão direto para a impressora, porém com um número X de cópias.

o código esta assim:


DoCmd.OpenReport "RltEtiqEstoque", , , "[Cod_Registro Estoque]=" & Me.[Cod_Registro Estoque] & ""


e ele imprime uma (sem precisar abrir o relatório), mas gostaria que imprimisse um número variável de cópias, para isso eu defini uma inputbox, mas não sei onde coloco o número de cópias.

Desde já obrigado.

DoCmd.OpenReport "RltEtiqEstoque", acViewNormal, , "[Cod_Registro Estoque]=" & Me.[Cod_Registro Estoque] & "", acHidden
DoCmd.PrintOut , , , acHigh, 2

2 é o número de cópias. Você pode ter um campo para digitar quantas cópias irá querer tambem:

DoCmd.OpenReport "RltEtiqEstoque", acViewNormal, , "[Cod_Registro Estoque]=" & Me.[Cod_Registro Estoque] & "", acHidden
DoCmd.PrintOut , , , acHigh, Me.txtCopies

acHigh indica qualidade de impressão máxima. Para economizar tinta, pode abaixar para acMedium ou acLow ou para qualidade de rascunho, acDraft

Obrigado pelo retorno....

Opa... Criquio obrigado pelo retorno.

localizei um código na net e acho que é interessante deixar aqui tb, pois para imprimir varias vezes.
vou colocar o código aqui:
neste caso, tem um inputbox que pergunta quantas cópias.
e tem a Dim i que faz o "loop".

Dim resposta As Variant
Dim i As Byte

resposta = InputBox("Digite a quantidade de ETIQUETAS.", "CONFERÊNCIA E ESTOCAGEM")

If Not IsNumeric(resposta) And (resposta) <> "" Then
MsgBox "Permitido somente números.", vbCritical

Else
If Not IsNull(resposta) And (resposta) <> "" Then
If resposta > 0 Then
For i = 1 To Nz(resposta, 1)
DoCmd.OpenReport "RltEtiqEstoque", , , "[Cod_Registro Estoque]=" & Me.[Cod_Registro Estoque] & ""
Next i
Else
Exit Sub
End If

Else
Exit Sub
End If

End If


Obrigado mesmo...

Esse código é mais simples
no formulário com um campo para digitar a quantidade de cópias ex: " numcopias " coloque esse código no botão para imprimir

dim x as interger

        For x = 1 To Me.numcopias
        DoCmd.OpenReport "seu_relatório", acViewNormal, , "seu_filtro"
        Next

assim ele faz o  loop tb
bem mais simples