[Resolvido]Imprimir relatório especifico

boas tardes malta

na BD que estou a criar tem um codigo especifico para impressão que fui ajudado pelo mestre avelino,
até aqui tudo 5estrelas, funciona como idealizei com a sua ajuda.
agora que adicionei já vários registos , quando mando imprimir , em vez de imprimir o que acabei de escrever, não, imprime tudo o que tenho registado na BD
situação esta que só deveria imprimir o que acabei de escrever.
como devo/posso ultrapassar isto
aguardo ajuda

mirsofy

Veja se isso ajuda.

viva e grato pela ajuda
esse topico já tinha visto e não consegui fazer nada de jeito, diz que há ambiguidade no codigo(? não sei o que é)
este é o codigo que estou a usar:

""
Private Sub Imprimir_Click()
Dim bytVias, bytLoop As Byte
'determina a quantidade de folhas para imprimir

bytVias = InputBox("Quantas folhas deseja imprimir? ", "Impressão", 1)
If bytVias <> "" And bytVias <= 8 Then
For bytLoop = 1 To bytVias
DoCmd.OpenReport "rlt_Registo"
Next
End If

""

o que mais posso fazer?

grato pelo apoio

mirsofy

viva malta
continuo sem conseguir resolver o meu problema

aguardo apoio

mirsofy

http://dl.dropbox.com/u/58104242/registo%20de%20processos_2003.zip

caso seja possivel verem a bd para melhor me ajudar

grato pelo apoio

mirsofy

Veja o simples;

A sua consulta que alimenta o relatorio, necessita do criterio que coloquei lá agora, estava em falta também.

http://dl.dropbox.com/u/771097/registo%20de%20processos_2003_OLD.rar

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

espectáculo
5estrelas
grato pela ajuda e esclarecimento de construção

mirsofy

Obrigado pelo retorno o fórum agradece.