CRYSTAL REPORTS A PARTIR DO MODULO
oi pessoal !!!
a duvida eh a seguinte:
Eu tenho de fazer com q va aparecer no ecra alguns documentos em crystal reports, mas eu estou a utilizar o componente CRViewer91, e entao gostava q fosse usado uma unica form para ele mostrar os meus documentos.
Queria q noutra form, com alguns commands com Index, qd carrega-se no botao entao aparece-se o doc respectivo para cada botao.
Para fazer isso usei um modulo:
case 0:
' apresenta o documento 1
Dim Report As doc
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
Screen.MousePointer = vbHourglass
Set Options = certificado_caractergeral.ExportOptions
Options.DestinationType = crEDTDiskFile
Options.FormatType = crEFTPortableDocFormat
Options.DiskFileName = App.Path & "\doc_1l " & Format(Now(), "dd-mm-yyyy") & ".pdf"
Options.PDFExportAllPages = True
Screen.MousePointer = vbDefault
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
CRViewer91.Zoom (90)
case 1:
' apresenta o documento 2
eu sei q isto ta correcto, agora o q esta realmente mal eh q o proprio modulo n reconhece o CRViewer, agora a minha pergunta eh ...
para isto funcionar tenho de declarar isto no modulo??
se sim como faço isso ?
obrigado
cumps
a duvida eh a seguinte:
Eu tenho de fazer com q va aparecer no ecra alguns documentos em crystal reports, mas eu estou a utilizar o componente CRViewer91, e entao gostava q fosse usado uma unica form para ele mostrar os meus documentos.
Queria q noutra form, com alguns commands com Index, qd carrega-se no botao entao aparece-se o doc respectivo para cada botao.
Para fazer isso usei um modulo:
case 0:
' apresenta o documento 1
Dim Report As doc
CRViewer91.Height = ScaleHeight
CRViewer91.Width = ScaleWidth
Screen.MousePointer = vbHourglass
Set Options = certificado_caractergeral.ExportOptions
Options.DestinationType = crEDTDiskFile
Options.FormatType = crEFTPortableDocFormat
Options.DiskFileName = App.Path & "\doc_1l " & Format(Now(), "dd-mm-yyyy") & ".pdf"
Options.PDFExportAllPages = True
Screen.MousePointer = vbDefault
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
CRViewer91.Zoom (90)
case 1:
' apresenta o documento 2
eu sei q isto ta correcto, agora o q esta realmente mal eh q o proprio modulo n reconhece o CRViewer, agora a minha pergunta eh ...
para isto funcionar tenho de declarar isto no modulo??
se sim como faço isso ?
obrigado
cumps
ninguem me pode ajudar ???
pessoal ninguem ai me pode ajudar ??

Tópico encerrado , respostas não são mais permitidas