ERRO AO IMPRIMIR ETIQUETA

ALANTB 17/03/2016 08:50:45
#459352

Olá, consegui adaptar impressão de etiquetas ao meu sistema (vb6/acess2007/Active Reports) usando como base o exemplo do post: http://vbmania.com.br/index.php?modulo=detalhe&id=3046. A parte de cadastros, edição, seleções tá ok. O problema é que tá dando um erro na hora de imprimir. A seleção de dados é feita no listview(com chekbox) mas ao clicar em imprimir abre a tela do relatório de impressão mas não exibe os dados mas sim o erro abaixo:

Error 5800 : Scripting Error.
[ Extended Info:Scripting Error. [ Extended Info:Source: Report , Event: Line number: 0 Description:[ô]([ô] esperado]]

Nunca usei Active Reports, alguém pode me dizer o que esse erro está pedindo????

Segue trecho do código:

No FORM de Seleção::::

Private Sub Command1_Click()
With arEtiqueta [ô]nome do form de visualização de relatório
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
.cont = .cont + 1
End If
Next
If .cont = 0 Then: MsgBox [Ô]Selecione o passageiro para impressão[Ô], vbInformation: Exit Sub
.InitArray
.Show vbModal
Exit Sub
End With

End Sub

-----------------------
NO RELATÓRIO
Option Explicit
Public cont As Integer
Public bLastIsSingle As Boolean
Private arr(1 To 100) As OrderItem
Dim i As Integer
Private iRow As Integer
Private tmpAmount As Currency
Private bNewGroup As Boolean
Private Type OrderItem
codPessoa As String
Nome As String
Confirma As String
codLista As String
End Type
Private bLastPage As Boolean

Private Sub ActiveReport_DataInitialize()
Fields.Add [Ô]codPessoa[Ô]
Fields.Add [Ô]Nome[Ô]
Fields.Add [Ô]Confirma[Ô]
Fields.Add [Ô]codLista[Ô]
iRow = LBound(arr)
End Sub

Private Sub ActiveReport_FetchData(eof As Boolean)
If iRow > cont Then
eof = True
Exit Sub
End If

If arr(iRow).codPessoa <> [Ô][Ô] Then
Fields([Ô]codPessoa[Ô]) = arr(iRow).codPessoa
Fields([Ô]Nome[Ô]) = arr(iRow).Nome
Fields([Ô]Confirma[Ô]) = arr(iRow).Confirma
Fields([Ô]codLista[Ô]) = arr(iRow).codLista

End If
eof = False
iRow = iRow + 1
bLastPage = eof
End Sub

Public Sub InitArray()
Dim X As Integer
With frmGeraEtiqueta
For i = 1 To .ListView1.ListItems.Count
If .ListView1.ListItems(i).Checked = True Then
X = X + 1
arr(X).codPessoa = .ListView1.ListItems(i)
arr(X).Nome = .ListView1.ListItems(i).ListSubItems(1)
arr(X).Confirma = .ListView1.ListItems(i).ListSubItems(2)
arr(X).codLista = .ListView1.ListItems(i).ListSubItems(3)

End If
Next
End With
End Sub

Private Sub ActiveReport_PageStart() [ô]muda para portugues o tooltips do menu do active
With arEtiqueta
.Toolbar.Tools.Item(0).Visible = False
.Toolbar.Tools.Item(2).Tooltip = [Ô]Imprimir[Ô]
.Toolbar.Tools.Item(2).Caption = [Ô][Ô]
.Toolbar.Tools.Item(4).Tooltip = [Ô]Copiar[Ô]
.Toolbar.Tools.Item(6).Visible = False
.Toolbar.Tools.Item(8).Tooltip = [Ô]Somente uma página[Ô]
.Toolbar.Tools.Item(9).Tooltip = [Ô]Múltiplas páginas[Ô]
.Toolbar.Tools.Item(9).Tooltip = [Ô]Múltiplas páginas[Ô]
.Toolbar.Tools.Item(15).Tooltip = [Ô]Página Anterior[Ô]
.Toolbar.Tools.Item(16).Tooltip = [Ô]Página Seguinte[Ô]
.Toolbar.Tools.Item(17).Tooltip = [Ô]Página[Ô]
End With
End Sub

Private Sub PageFooter_Format()
If bLastPage Then
lblContinued.Caption = [Ô]Continua..[Ô]
Else: lblContinued.Caption = [Ô]Ficha Completa[Ô]
End If
End Sub
----------------------------

Alan