Início![[Resolvido]imprimir relatório em duas vias Empty](https://2img.net/i/empty.gif)
poy 26/3/2012, 20:05Preciso imprimir um relatório em 2 vias mas não estou achando o parâmetro na instrução DoCmd.OpenReport stDocName, acViewNormal
Como é que faço ?
Como é que faço ?
[Resolvido]imprimir relatório em duas vias
poy- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 71
Registrado : 10/01/2012
Convidad- Convidado
Teste:
Private Sub NomeBotão_Click()
On Error GoTo Err_imprimir_Click
Dim bytVias, bytLoop As Byte
bytVias = InputBox("Quantas vias deseja imprimir? ", "Impressão", 1)
If bytVias <> "" And bytVias <= 4 Then
For bytLoop = 1 To bytVias
If bytLoop = 1 Then MsrVersao = "ORIGINAL"
If bytLoop = 2 Then MsrVersao = "DUPLICADO"
If bytLoop = 3 Then MsrVersao = "TRIPLICADO"
If bytLoop = 4 Then MsrVersao = "QUADRUPLICADO"
DoCmd.OpenReport "NomeRelatório", , , "[ID]= Forms!NomeFormulário!ID"
Next
End If
Exit_imprimir_Click:
Exit Sub
Err_imprimir_Click:
MsgBox Err.Description
Resume Exit_imprimir_Click
End Sub
poy- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 71
Registrado : 10/01/2012
Norberto,
Obrigado pela resposta
Eu sempre vou imprimir em2 vias. Consegui mas tenho que usar a opção de visualizar . Há alguma maneira de se imprimir as 2 vias sem visualizar ?
Obrigado pela resposta
Eu sempre vou imprimir em2 vias. Consegui mas tenho que usar a opção de visualizar . Há alguma maneira de se imprimir as 2 vias sem visualizar ?
Convidad- Convidado
Para pré-visualizar:
DoCmd.OpenReport "NomeRelatório", acPreview, "[ID]= Forms!NomeFormulário!ID"
Para imprimir direto:
DoCmd.OpenReport "NomeRelatório", acViewNormal, "[ID]= Forms!NomeFormulário!ID"
Peguei o código das vias neste tópico (dê uma olhada no final):
http://maximoaccess.forumeiros.com/t5038-resolvidoimprimir-relatorio-quatro-vias
Um truque simples seria simplesmente ordenar a impressão duas vezes:
DoCmd.OpenReport ...
DoCmd.OpenReport ...
Convidad- Convidado
Considerado como resolvido.
Conteúdo patrocinado