[Resolvido]Imprimir 3 Relatórios Diferentes

Boa tarde a todos
Tenho este comando Para imprimir dados filtrados num "Form" que imprime dois relatórios diferentes.

Depende do valor da Caixa_de_combinação4

Private Sub Comando30_Click()
On Error Resume Next
If Me.Caixa_de_combinação4 <> "Sofás" Then
If MsgBox("Confirma a Impressão da Listagem Resumo das Fichas de Custo ?" & Chr(13) & "" & [Caixa_de_combinação4], vbYesNo, "Aviso") = vbYes Then
Dim varItem As Variant, strList As String
With Me.Linha
If .ItemsSelected.Count = 0 Then 'conta se há pelo menos 1 selecionado
MsgBox "Selecione ao menos um Tipo de Produtos " & Chr(13) & "E Um Tipo de Linha!", vbExclamation, "Aviso"
GoSub sai
Else
For Each varItem In .ItemsSelected
' Você deve alterar a strList conforme o seu caso específico
If strList = "" Then ' 1º laço do Loop
strList = "Linha = '" & .Column(0, varItem) & "'"
Else
' A linha abaixo só vai ocorrer a partir do 2º laço
strList = strList & " OR linha = '" & .Column(0, varItem) & "'"
End If
Next varItem
End If
End With
On Error GoTo sai
DoCmd.OpenReport "ProdutosGeralImprimirFiltro", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False

Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("ProdutosGeralImprimirFiltro", vbNullString, Caminho & "Listagem Resumo Fichas de Custo " & Date & ".PDF", False, False)

On Error Resume Next 'erro 2501 caso você cancele a impressão
If err = 2501 Then
err.Clear
DoCmd.Close
DoCmd.openForm "Menu1"
End If
Else
End If
sai:

Else
' Se a Caixa_de_combinação4 Tiver o Valor "Sofa"
DoCmd.OpenReport "ProdutosGeralImprimirFiltroSofa", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False
End If

E eu queria que se a Caixa_de_combinação4 tivesse o valor "Base" imprimisse este...

'If Me.Caixa_de_combinação4 = "Base" Then
'DoCmd.OpenReport "ProdutosGeralImprimirFiltroBase", acViewPreview, , WhereCondition:=strList
'DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False
'End If

Não seria assim:

...
End If
sai:

ElseIf Me.Caixa_de_combinação4 = "Base" Then
'DoCmd.OpenReport "ProdutosGeralImprimirFiltroBase", acViewPreview, , WhereCondition:=strList
'DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False

Else
' Se a Caixa_de_combinação4 Tiver o Valor "Sofa"
DoCmd.OpenReport "ProdutosGeralImprimirFiltroSofa", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False
End If

Olá Criquio
Ajudou um pouco e ficou assim mas...

Quando a Caixa_de_combinação4 = "Base", abre dois relatórios.

Relatório - ProdutosGeralImprimirFiltro
Relatório - ProdutosGeralImprimirFiltroBase

E só devia abrir este:
Relatório - ProdutosGeralImprimirFiltroBase



Private Sub Comando30_Click()
On Error Resume Next
If Me.Caixa_de_combinação4 <> "Sofás" Then
If MsgBox("Confirma a Impressão da Listagem Resumo das Fichas de Custo ?" & Chr(13) & "" & [Caixa_de_combinação4], vbYesNo, "Home Center Industrias Lda") = vbYes Then
Dim varItem As Variant, strList As String
With Me.Linha
If .ItemsSelected.Count = 0 Then 'conta se há pelo menos 1 selecionado
MsgBox "Selecione ao menos um Tipo de Produtos " & Chr(13) & "E Um Tipo de Linha!", vbExclamation, "Home Center Industrias Lda"
GoSub sai
Else
For Each varItem In .ItemsSelected
' Você deve alterar a strList conforme o seu caso específico
If strList = "" Then ' 1º laço do Loop
strList = "Linha = '" & .Column(0, varItem) & "'"
Else
' A linha abaixo só vai ocorrer a partir do 2º laço
strList = strList & " OR linha = '" & .Column(0, varItem) & "'"
End If
Next varItem
End If
End With
On Error GoTo sai

DoCmd.OpenReport "ProdutosGeralImprimirFiltro", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False

Dim blRet As Boolean
Dim Caminho As String
Caminho = CurrentProject.path & "\PDF\"
blRet = ConvertReportToPDF("ProdutosGeralImprimirFiltro", vbNullString, Caminho & "Listagem Resumo Fichas de Custo " & Date & ".PDF", False, False)

On Error Resume Next 'erro 2501 caso você cancele a impressão
If err = 2501 Then
err.Clear
DoCmd.Close
DoCmd.openForm "Menu1"

ElseIf Me.Caixa_de_combinação4 = "Base" Then
DoCmd.OpenReport "ProdutosGeralImprimirFiltroBase", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False
sai:
End If

Else

End If

Else
' Se a Caixa_de_combinação4 Tiver o Valor "Sofa"
DoCmd.OpenReport "ProdutosGeralImprimirFiltroSofa", acViewPreview, , WhereCondition:=strList
DoCmd.SelectObject acReport, "ProdutosGeralImprimirFiltro", False
End If

Boa noite, Assis

Siga desta forma:
If Me.Caixa_de_combinação4 = "Base" then
'código para base
...
ElseIf Me.Caixa_de_combinação4 = "Sofá" then
'código para sofá
...
Else
'código para os restantes
...
End If

Cumprimentos

Talvez seja só o caso de tirar a linha a vermelho:

...
sai:
End If

Else

End If

Else
' Se a Caixa_de_combinação4 Tiver o Valor "Sofa"

Boa noite Alexandre e Criquio

não consigo nem duma maneira nem de outra maneira.

Como faço para fechar este relatório

DoCmd.OpenReport "ProdutosGeralImprimirFiltro", acViewPreview,

If Me.Caixa_de_combinação4 <> "Sofás" Then

Acredito que precisará mudar isso. Desse jeito, sempre que for <> Sofá, o relatório abrirá.

Obrigado Criquio
Agora vou dormir aqui é uma hora da manhã, e amanhã vou tentar com

select case ?
O que acha ?

Boa noite

Pode ser, desde que não coloque Case <> "Sofás", senão cai na mesma, hehehe.

Bom tarde

Obrigado Criquio e Alexandre.

Alexandre: com a sua dica mas sem o ElseIf.
Coloquei um código para cada situação.

Criquio: If Me.Caixa_de_combinação4 <> "Sofás" and Me.Caixa_de_combinação4 <> "Base" Then
Para imprimir aquele que não é "Sofás" nem "Base"

Beleza. Se está resolvido, resolvido está, para ser bem redundante, hehehe. Abraço.