[Resolvido]imprimir folhas a mais

boas
Há uns tempos atrás o JPaulo ajudou-me criando este código com a finalidade de imprimir o mesmo relatório por 8 folhas.
coloquei a BD no servidor de serviço e criei um atalho para 2 pc´s que estão na rede, para esses dois funcionários trabalharem.
agora dizem-me que está a imprimir tambem outros registo que se encontram já registados na BD.

""

Private Sub imprimir_Click()
'By JPaulo ® Maximo Access
Dim intTotalCopias
'salva o registo atual
DoCmd.RunCommand acCmdSaveRecord
'pergunta quantas copias quer
intTotalCopias = InputBox("Quantas folhas deseja imprimir?", "Impressão", 1)
'se não digitou nada, aborta
If intTotalCopias = "" Then Exit Sub
'se digitou, inicia a visualização e impressão
DoCmd.OpenReport "rlt_Registo", acPreview
DoCmd.PrintOut acPrintAll, , , , intTotalCopias, 0
End Sub

""

aguardo apoio

mirsofy

segue BD

https://www.dropbox.com/s/gndqt2033kgxwwm/registo%20de%20processos.zip


mirsofy

boas de novo malta
continuo aguardando ajuda

mirsofy

boas
como não me ajudam
dou por encerrado o tópico
grato pela ajuda

mirsofy