[Resolvido]Como unir dois relatórios em um?!

Olá pessoal, tudo bem?!

Eu preciso que dois relatórios que eu fiz em um banco sejam impressos em um só relatório, como posso fazer isso sem utilizar VBA, ja tentei utilizando sub relatório porém não é possível pois quero que um seja impresso assim que o outro terminar(por sub relatório seriam impressos partes dos dois por associação)...

desde já muito obrigado pela ajuda ;D

um abraço

Ola Fernando seja bem vindo ao forum.

Imprimir um assim que o outro seja impresso, são dois.

Você quer, imprimir os dois separados ou quer aplicar quebra de pagina num só ?

quero que seja um relatório só, (Relatório Geral) contendo outros dois relatórios (Impressoras e Hardware e software)

ja tentei também abrir um formulário em branco e arrastar os dois pra dentro... e deu certo porém fica com uma linha preta envolvendo cada um dos relatórios.

Obrigado pelas boas vindas ;D (Estou desesperado já skoPKSPsa)

Fernando, neste exemplo abra somente o rptGeral.

Vai visualizar dois relatorios de duas tabelas distintas, em um só, utilizando a quebra de pagina...

http://dl.dropbox.com/u/771097/Fernando.rar

Outra questão que para mim seria a mais viável, era o amigo mandar imprimir os dois em sequencia.

De uma maneira ou de outra, será sempre duas folhas mesmo...



Dim stDocName1 As String
Dim stDocName2 As String
Dim strCriterio1 As String
Dim strCriterio2 As String

strCriterio1 = "x"
strCriterio2 = "y"

stDocName1 = "Rel1"
DoCmd.OpenReport stDocName, acNormal, , strCriterio1

stDocName2 = "Rel2"
DoCmd.OpenReport stDocName, acNormal, , strCriterio2

Então eu nem sei como faz NADA com código... tudo que eu montei aqui foi só a base de macro e ferramentas do próprio access ... desculpa minha ignorância rs... (so burrinho em access ainda =S)

não seria viável fazer o relatório de tuas tabelas porque não sairia em ordem alfabética (criei uma consulta que faz isso) posso mandar no seu e-mail o banco só pra vc olhar e me entender melhor?
;D

JPaulo, uma perguntinha: você acha que existe alguma vantagem em criar e instanciar variáveis ao invés de colocar direto na instrução os nomes dos objetos e os critérios? Por exemplo, faz diferença se ao invés de colocar como você colocou no código acima eu colocar apenas assim:

DoCmd.OpenReport "Relatório1", acNormal, , Critérios
DoCmd.OpenReport "Relatório2", acNormal, , Critérios

Criquio não tem problema algum não, é uma mania que eu apanhei quando ainda andava na faculdade.

Amigo Fernando, é o simples.

Você insere um botão no seu formulario, vai no evento vba ao pressionar desse botão e cola as instruções do Criquio;

Private Sub SeuBotao_Click()
DoCmd.OpenReport "Relatório1", acNormal, , Critério
DoCmd.OpenReport "Relatório2", acNormal, , Critério
End Sub

Critério, será filtro para os relatorios.

Então eu coloquei o que você falo lá no final olhase está certinho ;D

o problema é que ele s[o imprimiu um relatório que é o de hardware e software, o de impressora ele nem txum kkkkkkkkkkk

Option Compare Database

Private Sub Comando5_Click()
On Error GoTo Err_Comando5_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Principal"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando5_Click:
Exit Sub

Err_Comando5_Click:
MsgBox Err.Description
Resume Exit_Comando5_Click

End Sub
Private Sub Comando6_Click()
On Error GoTo Err_Comando6_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Impressoras"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click

End Sub
Private Sub Comando7_Click()
On Error GoTo Err_Comando7_Click

Dim stDocName As String

stDocName = "Relatório de Hardware e Software"
DoCmd.OpenReport stDocName, acPreview

Exit_Comando7_Click:
Exit Sub

Err_Comando7_Click:
MsgBox Err.Description
Resume Exit_Comando7_Click

End Sub
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click

Dim stDocName As String

stDocName = "Relatório de Impressoras"
DoCmd.OpenReport stDocName, acPreview

Exit_Comando8_Click:
Exit Sub

Err_Comando8_Click:
MsgBox Err.Description
Resume Exit_Comando8_Click

End Sub
Private Sub Comando9_Click()
On Error GoTo Err_Comando9_Click


DoCmd.GoToRecord , , acFirst

Exit_Comando9_Click:
Exit Sub

Err_Comando9_Click:
MsgBox Err.Description
Resume Exit_Comando9_Click

End Sub
Private Sub Comando10_Click()
On Error GoTo Err_Comando10_Click


DoCmd.Close

Exit_Comando10_Click:
Exit Sub

Err_Comando10_Click:
MsgBox Err.Description
Resume Exit_Comando10_Click

End Sub
Private Sub Comando14_Click()
On Error GoTo Err_Comando14_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Aumoxarifado"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Comando14_Click:
Exit Sub

Err_Comando14_Click:
MsgBox Err.Description
Resume Exit_Comando14_Click

End Sub

Private Sub Relatório_Geral_Click()

DoCmd.OpenReport "Relatório de Hardware e Software", acNormal, , Critério
DoCmd.OpenReport "Shellmar - Impressoras", acNormal, , Critério

End Sub

poxa obrigado mesmo pela força que estão dando aí

Este Relatório_Geral_Click() é um novo botão ?

Se for fica assim:

Private Sub Relatório_Geral_Click()
DoCmd.OpenReport "Relatório de Hardware e Software", acNormal
DoCmd.OpenReport "Shellmar - Impressoras", acNormal
End Sub

E apaga tudo aqui de linha que tem encima?! kkkkkkkkkkkkkk

eu preciso colocar tbm na parte de baixo um rodapé com o numero da pagina e data do relatório isso já tem nos dois individualmente mais eu preciso que saia os dois como se fosse um dando sequencia ao numero da página entende?

por exemplo vai acabar o de hardware e software na página 30 quero que saia a página 31 começando o relatório de impressoras

acho que agora me expliquei melhor né?! desculpe qualquer coisa ...

JPaulo, obrigado pelo esclarecimento. Imaginei mesmo que fosse alguma coisa nesse sentido, rsrsrs. Como eu disse anteriormente aqui, eu trabalho com o Access a vários anos mas fazendo coisas simples com macros e assistentes. vba eu comecei a me interessar de verdade nesse ano de 2010, mais especificamente à partir de maio.

Rapaz, se você apagar tudo o que está acima, todos os seus comandos no formulario deixaram de funcionar.

legal... da forma que eu falei acima é possível? nunca tinha nem visto VBA é a primeira vez, fiz tudo ate agora só com ferramentas do access e macros ... por isso sou tão leigo .

A parte da impressão está resolvida.

O que você descreve acima, não é possivel com dois relatorios separados, só como no exemplo que lhe passei.

Abraço e bom final de semana.

Muito obrigado

vou estudar um pouco mais vba também estoui precisando rs...

abraço e bom fim de semana ...