Ola, pessoal
verifiquei aqui no forum sobre ctrl +p, que é o comando para abrir tela de opcoes na impressao...

descobri que o comando
docmd.runcommand accmdprint , pode substituir ok.

só que quando starto meu relatorio no preview, coloco este comando , e está dando errado.. ou seja não aparece o preview para depois aparecer a tela de opcoes deste comando...
em que parte colocari este comando para dar certo...

obrigado, Marcio

Será que ningue m , poderá responder....

Não entendi bem o seu problema. O comando é que não está funcionando?

Existe duas maneiras de imprimir ralatórios:

Diretamente sem visualziar o relatório através do comando docmd.opem report

Ou através do comando DoCmd.RunCommand acCmdPrint quanto o relatório está sendo visualizado.

Como você está utilizando o comando? Através de um barra de menu-pop, barra de ferramentas no relatório, ou através de código no relatório?

no formulario tem um botao com o evento ao clicar
If tipoconsulta = 1 Then

stDocName = "RELATORIO1"
DoCmd.OpenReport stDocName, acPreview
End If
------------------------------------
agora dentro do relatorio em si

este evento está dentro do relatorio ao abrir
Private Sub Report_Open(Cancel As Integer)
DoCmd.ShowToolbar "PERSONALIZAR 2 RELAT", acToolbarYes
End Sub

este tambem esta no evento ao ativar do relatorio
Private Sub Report_Activate()
If DCount("*", Me.RecordSource) = 0 Then
DoCmd.ShowToolbar "PERSONALIZAR 2 RELAT", acToolbarNo
MsgBox "Não há registros a serem impressos", 32, ""
DoCmd.Close acReport, "RELATORIO1"
End If

este evento tambem esta no relatorio
Private Sub Report_NoData(Cancel As Integer)
'DoCmd.SetWarnings False
MsgBox "NÃO HÁ DADOS PARA ESTA PESQUISA"
Exit Sub
Cancel = True
DoCmd.CancelEvent

DoCmd.Close
end sub

------------------------------------
tentei colocar o comando
docmd.runcommand accmdprint

ele abre, mas o preview do relatorio não apresenta , ou seja fica como se estivesse uma folha em branco

o meu funciona qual a versão do seu access ?

versao 97

ENCONTRADO A SOLUÇÃO
1 - NO BOTAÕ QUE PERSONALIZEI , COM DESENHO DE UMA IMPRESSORA, ENTREI EM PROPRIEDADES E NA AÇÃO : COLOQUEI : MACRO4

2 NA MACRO4
EXECUTAR CODIGO
NOME DA FUNÇÃO: IMPRIMI()

3 - NO MODULO, UMA FUNÇÃO COM O NOME IMPRIMIR
Public Function imprimi()
DoCmd.RunCommand acCmdPrint
End Function
4 - QUANDO DO START NO RELATORIO,
NO BOTAO QUE APRESENTA O DESENHO DE UMA IMPRESSORA, CLICO E ENTÃO, APARECE O PREVIEW DO RELATORIO E O COMANDO ACIMA DA FUNÇÃO(QUE EQUIVALE O CTRL +P)

TUDO OK, FUNCIONANDO .......

OBS. FALTA TRATAR ERRO 2501 , AO CANCELAR A IMPRESSÃO....FACIL...

AGRADECIDO, MARCIOMAR