VB6 + CR9: ERRO AO EXPORTAR PARA PDF NO WIN 8
Pessoal, estou com um problema complicado aqui e preciso de ajuda. Tenho um sistema feito em VB6 com relatórios criados em Crystal 8 e 9, que são visualizados dentro do sistema usando o componente CRViewer do Crystal 9. Tudo funcionava muito bem, porém agora, descobri que o recurso para exportar para PDF não funciona no Windows 8. Até no 2012 Server eu teste e roda de boa, mas no Windows 8 ele dá erro.
Segue trecho do código onde apresenta o problema:
O erro ocorre quando chamo o .Export False. Alguém já passou por isto? Sabe como resolver?
Segue trecho do código onde apresenta o problema:
Dim nomeArquivo As String, fso As New FileSystemObject
On Error GoTo erro
If Trim(nomeAnexo) = [Ô][Ô] Then
nomeArquivo = App.Path & [Ô]/Exports/[Ô] & vRPT & [Ô]_[Ô] & Format(Date, [Ô]dd_mm_yyyy[Ô]) & [Ô]_[Ô] & Format(Time, [Ô]HH_MM_ss[Ô]) & [Ô].pdf[Ô]
Else
nomeArquivo = App.Path & [Ô]/Exports/[Ô] & nomeAnexo & [Ô].pdf[Ô]
End If
If fso.FileExists(nomeArquivo) Then
Call fso.DeleteFile(nomeArquivo)
End If
With Report
[ô].EnableParameterPrompting = False
With .ExportOptions
.FormatType = crEFTPortableDocFormat
.DestinationType = crEDTDiskFile
.DiskFileName = nomeArquivo
.PDFExportAllPages = True
End With
.Export False
End With
O erro ocorre quando chamo o .Export False. Alguém já passou por isto? Sabe como resolver?
Faça seu login para responder