[Resolvido]imprimir certo nº de relatórios

abro este topico para o seguinte:
quando clico no botão imprimir do formulário abre um relatório para imprimir
Tenho a necessidade de imprimir 8 folhas de cada vez
sem abrir as propriedades da impressora e escolher as quantidades.
ou melhor, ficar predefinido.
como devo fazer para tal


mirsofy

Talvez assim:

DoCmd.SelectObject acReport, "NomeDoRelatório", True
DoCmd.PrintOut , , , , 8

boas amigo
depois de aplicar a tua dica:

""""""""""""""""""""""""""""""""""""""""""""""""""

Private Sub Imprimir_Click()

DoCmd.SelectObject acReport, "rlt_Registo", True
DoCmd.PrintOut , , , , 8

End Sub

""""""""""""""""""""""""""""""""""""""""""""""""""""
imprime sim 8 folhas , mas do formulário
o que estou fazendo mal??

mirsofy

Tente colocar apenas a linha do PrintOut no evento "Ao carregar" do relatório:

DoCmd.PrintOut , , , , 8

boas de novo

fiz o seguinte:
apaguei o codigo do formulário
e colei no evento do relatório

agora aparece:

erro2585

-----------------------------------------------

Private Sub Report_Open(Cancel As Integer)

DoCmd.PrintOut , , , , 8

End Sub

------------------------------------------------
o que posso fazer

Olá

Tente esta alternativa.

Código:


    Dim bytVias, bytLoop As Byte

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


Sucesso!

amigo avelino
fico grato pela ajuda e disponibilidade
agora morri na praia .
onde coloco ou o que devo fazer com o codigo que desponibilizaste
fiquei a toa
aguardo e agradeço o apoio


mirsofy

No evento "ao clicar" do seu botão (formulário)

grato pela ajuda
mestre é mestre
está 5 estrelas agora

mirsofy