[Resolvido]impressão de relatório

Boas
tenho um relatório para imprimir em acess 2003, para imprimir no relatório actual
e utilizando este código colocado neste forum

Private Sub BTimPRIMIR_Click()
On Error GoTo Err_BTimPRIMIR_Click

Dim stDocName As String
Dim strFilter As String
strDocName = "PARQUE"
strFilter = "matricula= Forms!carros!matricula"
DoCmd.OpenReport "PARQUE", acViewPreview, "", "[matricula]=[forms]![carros]![matricula]", acNormal
DoCmd.Maximize

Exit_BTimPRIMIR_Click:
Exit Sub

Err_BTimPRIMIR_Click:
MsgBox Err.Description
Resume Exit_BTimPRIMIR_Click

End Sub


e quando selecciono um registo no form carrego no botão para imprimir e abre o respectivo relatório com o registo correcto mas não o imprime (peço desculpa mas estou a dar os primeiros passos no acess)e era para após aparecer o relatório aparecer uma caixa de confirmação a perguntar se queria imprimir este relatório e botões com sim ou não, este form já o desenhei só que me falta o resto e
pelo que venho pedir ajuda mais uma vez

muito obrigado

Zeben

Olá!

Tente desta forma:

Código:


DoCmd.OpenReport "PARQUE", acViewPreview, "", "[matricula]=" & [forms]![carros]![matricula] & ", acNormal


Boa sorte,

Boas
e obrigado

já fiz a alteração mas dá o seguinte erro "erro de sintaxe (virgula) na expressão de consulta '([matricula]= 12-34-AB,acNormal)'
e não mostra o relatório

Cunprimentos
zeben

Hummm

Como não sabia o formato do campo! O campo matrícula é texto?

Altere:

Código:


DoCmd.OpenReport "PARQUE", acViewPreview,, "[matricula]='" & [forms]![carros]![matricula] & "'", acWindowNormal


Falow,

boas le_lo28

obrigado

sim o campo matricula é texto e já aparece o relatório, sem erros e continua sem aparecer o comando para imprimir

Zeben

OK!

A primeira parte deu certo?

Agora você quer colocar no botão uma mensagens para o usuário decidir se quer imprimir sim ou não?

Bem, não sei qual a sua necessidade, mas se vc faz um formulário e coloca um botão "imprimir" pra que colocar uma mensagem se quer imprimir ou não? Apenas não acho funcional!

Mas se quiser colocar mesmo assim faça assim:

Código:



Private Sub BTimPRIMIR_Click()
On Error GoTo Err_BTimPRIMIR_Click

Dim stDocName As String
Dim strFilter As String
strDocName = "PARQUE"

If MsgBox("Deseja imprimir o relatório?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then

DoCmd.OpenReport "PARQUE", acViewPreview,, "[matricula]='" & [forms]![carros]![matricula] & "'", acWindowNormal
DoCmd.Maximize

Else
 Exit Sub

End if

Exit_BTimPRIMIR_Click:
Exit Sub

Err_BTimPRIMIR_Click:
MsgBox Err.Description
Resume Exit_BTimPRIMIR_Click

End Sub


boas le_lo28

tem toda a razão vendo desse prisma não faz qualquer sentido e como diz não é funcional
foi uma ideia infeliz.
agora carrego no botão imprimir abre o relatório em modo de visualização e depois não envia para a impressora,
vou ver se encontro alguma solução para isto

Cumprimentos
Zeben

OK!

Então visualizar e imprimir são comando diferentes! Ou vc visualiza e depois manda imprimir ou imprimi direto sem visualizar.

Falow,

Pra imprimir direto creio que so e retirar a AcViewPreview... ai ele nao abra o visualizador.. no 2007 no visualizador tem o comando imprimir no menu, mas se deseja imprir direto seria so retirar o Ac....


Cumprimentos

Boas
muito obrigado pelo conselho está feito e 5 *****, mas agora estou com outro problema que é quando mando imprimir o relatório o mesmo imprime os dados todos referentes a esse registo e como esse registo tem associado uma foto, a mesma não aparece no relatório nem na impressão, eu antes tinha como indicado aqui http://maximoaccess.forumeiros.com/t5127-resolvidoproblema-com-localizacao-de-fotos, na bd estava definido o caminho da foto e com a grande ajuda do amigo "bitabit", resolvi aquele problema mas ao resolve-lo criou outro que é quando agora imprimo o relatório aparecem os dados mas não aparece a foto no relatório, as associações que tinha antes foram mantidas.

agradeço desde já a ajuda que me possa ser dada

cumprimentos

zeben

A impressao direto as vezes da problemas dependendo de em qual evento se carrega as os codigos das fotos. Se tais eventos tiverem ao carregar do form, exoerimente aplica-los no evento ao abrir.. creio que resolvera


Cumprimentos

Boas
obrigado pela ajuda, já fiz a alteração e nada continua na mesma,
vou tentar achar outra solução para este problema

cumprimentos
zeben

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.