EU NUNCA TRABAHEI COM O CRYSTAL 11, MAS A PARTIR DO CRYSTAL 9.0 TEVE UMA MUDANÇA DE CONCEITO NÃO EXISTE MAIS O CRYSTAL32.OCX, OU SEJA VOCE NÃO TEM MAI O OBJETO CRYSTAL, ASSIM SENDO TODAS AS INTRUÇÕES TEM QUE SER MODIFICADAS PARA :
ORIENTA = 1 ' ORIENTAÇÃO DO PAPEL
Relatorio = "Rel_Ordem_Separacao.rpt" ' NOME DO RELATÓRIO
Dim Report As New CRAXDRT.Report
Dim crxapp As New CRAXDDRT.Application
Dim RELAT As String
RELAT = App.Path & "" & Relatorio
Set Report = crxapp.OpenReport(RELAT)
Report.PaperOrientation = ORIENTA
Report.PrintOut True
ISSO FUNCIONA NO CRYSTAL 9.2 A DLL A SER ADCIONADA É A CRVIEWER??.DLL