[Resolvido]imprimir relatório quatro vias

Amigos boas tardes encontrei estes codigos na net e adaptei na minha BD e imprime na 1ª folha (Original) 2ª folha (Duplicado) e assim por diante. Pedia ajuda aos sabio da materia se é possivel alterarem o codigo abaixo de forma se eu quiser imprimir só 2 guias por exemplo original e duplicado ou por exemplo só o original ou então três guias orginal,duplicado e triplicado visto da forma que o codigo está escrito obriga a imprimir sempre 4 guias
Obrigado.

Criei uma variavel em um MODULO

Global MsrVersao As String

No Relatorio coloquei um Rotulo com o nome LBL_Versao e escrevi o seguinte código, no evento formatar do cabeçalho,

Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
LBL_Versao.Caption = MsrVersao
End Sub
E para impressão, criei um form, com um botão, e no Evento Click coloquei o seguinte código

Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim LinVias As Integer

For LinVias = 1 To 4
If LinVias = 1 Then MsrVersao = "ORIGINAL"
If LinVias = 2 Then MsrVersao = "DUPLICADO"
If LinVias = 3 Then MsrVersao = "TRIPLICADO"
If LinVias = 4 Then MsrVersao = "QUADRUPLICADO"

DoCmd.OpenReport "Guia_Transp", acViewNormal

Next

Exit_Comando0_Click:
Exit Sub

Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click

End Sub

Eu colocaria um campo para digitar o número da página inicial e outro para digitar o número da página final. Vamos supor que sejam os campos txtInicial e txtFinal. No clicar do botão:

DoCmd.OpenReport "NomeDoRelatório", acViewPreview, , , acHidden

DoCmd.PrintOut acPages, Me.txtInicial, Me.txtFinal

DoCmd.Close acReport, "NomeDoRelatório"

peço desculpa pela minha igorância mas não estou a perceber onde crio os campos txtInicial e txtfinal para digitar o numero das paginas eu para imprimir é atraves de um botão existente no formulario
obrigado

Exato. Os campos ficam nesse formulário e o código no botão.

tendo os campos txtInicial e txtFinal no formulario para digitar txtInicial 1 e no txtFinal 2 com os codigos no botão imprimir continua a imprimir 4 folhas o codigo ficou desta forma será que está bem?
nota: o relatorio guia_transp é sempre o mesmo formatado para uma folha A4

Private Sub imprimir_Click()
On Error GoTo Err_imprimir_Click

DoCmd.OpenReport "Guia_Transp", acViewPreview, , , acHidden

DoCmd.PrintOut acPages, Me.txtInicial, Me.txtFinal

DoCmd.Close acReport, "Guia_Transp"

Dim LinVias As Integer

For LinVias = 1 To 4
If LinVias = 1 Then MsrVersao = "ORIGINAL"
If LinVias = 2 Then MsrVersao = "DUPLICADO"
If LinVias = 3 Then MsrVersao = "TRIPLICADO"
If LinVias = 4 Then MsrVersao = "QUADRUPLICADO"

DoCmd.OpenReport "Guia_Transp", , , "[ID]= Forms!frm_caixaSaidas!ID"

Next


Exit_imprimir_Click:
Exit Sub

Err_imprimir_Click:
MsgBox err.Description
Resume Exit_imprimir_Click

End Sub

Você está digitando o número da primeira e última páginas que quer imprimir? Se você quiser imprimir da primeira página até a terceira, deverá digitar 1 no campo txtInicial e 3 no campo txtFinal. Assim serão impressas as páginas 1, 2 e 3.

a pagina relatório é unica o codigo que passei é que escreve ao imprimir original duplicado etc.quero dizer que não tenho 4 paginas e ao digitar nos campo txtInicial nº1 e no campo txtFinal nº3 comtinua a imprimir as 4 folhas porque assim o codigo manda digo eu.Se estou a entender a sua logica deveria ter pagina 1 pagina 2 pagina 3 e pagina 4 mas não tenho

Então é apenas uma página e nela tem um campo que, dependendo da escolha, terá um texto diferente, é isso mesmo?

Então talvez seja o caso de se colocar 4 caixas de seleção, de nome sel1, sel2, sel3 e sel4 e no clique do botão, algo assim:

DoCmd.OpenReport "Guia_Transp", , , "[ID]= Forms!frm_caixaSaidas!ID"

If Me.sel1.Value = -1 then
Reports!Guia_Transp!NomeDoCampo = "ORIGINAL"
DoCmd.PrintOut
End If

If Me.sel2.Value = -1 then
Reports!Guia_Transp!NomeDoCampo = "DUPLICADO"
DoCmd.PrintOut
End If

If Me.sel3.Value = -1 then
Reports!Guia_Transp!NomeDoCampo = "TRIPLICADO"
DoCmd.PrintOut
End If

If Me.sel4.Value = -1 then
Reports!Guia_Transp!NomeDoCampo = "QUADRUPLICADO"
DoCmd.PrintOut
End If

DoCmd.Close acReport, "Guia_Transp"

Agora basta marcar as caixas daquele que quiser imprimir.

boa tarde mais uma vez peço ajuda que é o seguinte:
o amigo Criquio passou o codigos da mensagem nº8 o que acontece quando click no botão imprimir simplesmente não imprime a impressora fica com 0 documentos. Se aplicar os codigos da mensagem nº1 já imprime será que falta alguma coisa nos codigos da mensagem nº8
aguardo ajuda obrigado

há por ai uma alguma alma caridosa que queira ajudar no que está descrito nas mensagens anteriores.
Obrigado

Tente completando um pouco mais a sintaxe do PrintOut:

DoCmd.PrintOut acPages, 1, 1, , 1

Após ter feito a alteração no codigo como tinha escrito na mensagem acima passou a dar o seguinte erro de execução 2501 'a acção openreport foi cancelada'
obrigado

Tente sem a linha abaixo:

DoCmd.Close acReport, "Guia_Transp"

Peço desculpa por estar a ser aborrecido mas há algo que não está bem:
1- aparece a mensagem de erro que o relatório não existe ou está mal escrito; mal escrito não está! já imprime mas só uma guia, apesar de nas caixas de verificação no formulario estar a pedir 2 guias original e duplicado
2- No relatótio criei um campo rotulo com o nome lbl e quando imprime guia não aparece nesse campo que foi criado no relatorio deveria aparecer(ORIGINAL)o codigo ficou escrito desta forma

DoCmd.OpenReport "Guia_Transp", , , "[ID]= Forms!frm_caixaSaidas!ID"

If Me.sel1.Value = -1 Then
Reports!Guia_Transp!lbl = "ORIGINAL"
DoCmd.PrintOut acPages, 1, 1, , 1
End If

If Me.sel2.Value = -1 Then
Reports!Guia_Transp!lbl = "DUPLICADO"
DoCmd.PrintOut acPages, 1, 1, , 1
End If

If Me.sel3.Value = -1 Then
Reports!Guia_Transp!lbl = "TRIPLICADO"
DoCmd.PrintOut acPages, 1, 1, , 1
End If

If Me.sel4.Value = -1 Then
Reports!Guia_Transp!lbl = "QUADRUPLICADO"
DoCmd.PrintOut acPages, 1, 1, , 1
End If

DoCmd.Close acReport, "Guia_Transp"

End Sub

uma observação que faço espero não parecer mal.O Codigo que enviei na mensagem 1 tem um modulo e no cabeçalho do relatório no evento formatar tem algo.

Se é rótulo, tem que ser assim:

Reports!Guia_Transp!lbl.Caption = "ORIGINAL"

Amigo Criquio fico agradecido pela sua paciencia mas não consegui por a funcionar como o Sr. disse de qualquer forma muito obrigado.resolvi por outras vias envio os codigos abaixo para o caso de alguem necessitar estes fazem o pertendido.
muito obrigado.

Private Sub imprimir_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 "Guia_Transp", , , "[ID]= Forms!frm_caixaSaidas!ID"
Next
End If

Exit_imprimir_Click:
Exit Sub

Err_imprimir_Click:
MsgBox err.Description
Resume Exit_imprimir_Click

End Sub

para além destes codigos existe um Modulo (Global MsrVersao As String) e no evento formatar do cabeçalho do relatorio isto: Private Sub CabeçalhoDoRelatório_Format(Cancel As Integer, FormatCount As Integer)
LBL_Versao.Caption = MsrVersao
End Sub