[Resolvido]Comando para impressão

Bom dia,

Qual comando utilizo num botão para imprimir um relatório?

Grato

Se for para abrir o registo actual, entre outras formas, tem esta.

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "NomeRelatório"
strFilter = "Chaveprimária= Forms!NomedoForm!chaveprimária"
DoCmd.OpenReport strDocName, acViewPreview, , strFilter

Blz, deu certo

Agora me diga uma coisa, estou criando um relatório apartir de uma consulta que tem um form que chama o relatorio.

como eu devo colocar no campo Cidade o criterio da consulta para pegar o valor de uma combo no form

fiz assim:

[Forms]![frmrptAtendimentoCidade]![cboCidade]

quando clico na combo e seleciono a cidade aparece uma inputbox pedindo para digitar a cidade o que devo fazer para aparecer logo o relatorio, pois só aparece quando digito o nome da cidade

Adilson

Tente colocar cboCidade.Value ou se a a combo tiver mais de uma coluna, cboCidade.Column(número da coluna).

Valeu Mestre,

TEm mais uma coisa

Estou utilizando a seguinte consulta numa caixa de combinação num formulário para selecionar a cidade e não está aparecendo nada na lista da combo

SELECT qryAtendimentoCidade.Cidade FROM qryAtendimentoCidade GROUP BY qryAtendimentoCidade.Cidade HAVING (((qryAtendimentoCidade.Cidade)=[Forms]![frmrptAtendimentoCidade]![cboCidade]));


o que devo fazer

Agradecido

Talvez assim:

SELECT qryAtendimentoCidade.Cidade FROM qryAtendimentoCidade GROUP BY qryAtendimentoCidade.Cidade WHERE qryAtendimentoCidade.Cidade=[Forms]![frmrptAtendimentoCidade]![cboCidade];

Coloquei assim e deu certo


Select tblMun.Municipio From tblMun Group By tblMun.Municipio

Só que agora quando na combo seleciona a cidade aparece uma caixa para digitar o nome da cidade o que estou fazendo de errrado?


Adilson

Ninguém aí para me ajudar não?

SELECT tblMun.Municipio FROM tblMun ORDER BY [Municipio];

Vieira,

Quando eu seleciono o municipio na combo ao invés de aparecer o relatorio aparece a seguinte inputbox

Formulários!frmrptAtendimentoCidade.cboCidade.valor

Que é o parametro que coloquei no criterio do campo municipio da consulta que gera informações para o relatorio.

O que estou fazendo de errado?


Agradecido

Eu penso que o Criquio já tinha dado a resposta acima


Private Sub Caixa_de_combinaçãonome_AfterUpdate()
DoCmd.OpenReport Caixa_de_combinaçãonome.Column(1)
DoCmd.OpenReport Caixa_de_combinaçãonome.Column(2)
e por aí fora
End Sub

adapte para Relatório. Trata-se de um Menu que abre forms, mudando form por report, abre relatórios.

http://dl.dropbox.com/u/8157744/menucbo.rar

O Criquio disse que se tiver mais de uma coluna. Mesmo assim seguir sua colocação e deu erro justamente na linha de codigo

DoCmd.OpenReport Caixa_de_combinaçãonome.Column(1) ele pega o nome da cidade que no caso foi Santo André e diz que o nome do relatorio está errado.

Mais uma coisa, muito obrigado pelo SuperAvançado.


Adilson

Amigão, veja o exemplo que lhe enviei atrás e irá compreender como fazer um Menu de relatórios. Esse exemplo é para forms, mas basta substituir na tabela o nome dos forms por relatórios e no vba também,. Simples, vai ver

http://dl.dropbox.com/u/8157744/menucbo.rar

Vi o exemplo, mas o que acontece é o seguinte:

Tenho uma tabela de atendimento que pego para o relatorio os campos:

Solicitante - DAta - Cidade

a Cidade vem da tabela municipio. Para ser mais claro Na propriedade origem do controle da combo que está em um formpopup só para a combo coloquei assim:

Select TabAtendimento.Cidade From TabAtendimento Group by TabAtendimento.Cidade, até aí blz vem todas as cidades cadastradas na tabatendimento e não os mais de 5000 municipios brasileiros da tabela tblMun.

O problema chega realmente agora quando clico numa cidade aparece a caixa de mensagem com uma caixa de texto para digitar o nome da cidade ao invés de aparecer o relatorio, seu digitar manualemnte a cidadeaparece o relatorio corretíssimo.

Segue o link do bd:

http://dl.dropbox.com/u/37804873/Administrativo%20DEJOSAN.rar


o frmrptAtendimentoCidade é onde está a combo que dáo problema.

Mestres Vieira e Criquio,

Ambos estavam certo.

O quadrupede melhorado aqui por anda de duas patas é que estava fazendo jumentisse (coisa de jumento). kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk

Olhe só aonde estava o erro:

Private Sub cboCidade_Click()

DoCmd.Close acForm, "frmrptAtendimentoCidade"

DoCmd.OpenReport "rptAtendimentoCidade", acViewReport

End Sub


Coloquei assim:

Private Sub cboCidade_Click()

DoCmd.OpenReport "rptAtendimentoCidade", acViewReport
DoCmd.Close acForm, "frmrptAtendimentoCidade"

End Sub

Ou seja, ele primeiro abre o relatório e passa os parametros da consulta e depois fecha o form que tem a combo, estava ao contrário. Que cabeça eesssa minha. AnalfaBurro.



Brigadooooooooooooooooooo e Perdãoooooooooooooooooooooo


Adilson

Isso acontece. A gente atrapalha mesmo não querendo. Abraço

Resolvido, bom trabalho.