DATAREPORT NAO RESPONDE

NILTON.VIANNA 07/02/2010 21:14:39
#333829

Bem o que acontece e seguinte
Quando faço meu pedido ele grava normal
Só quando vou mandar imprimir a tela do DataReport, fica em branco
Tenho que sair do sistema, depois pesquisar o pedido daí aparece normal
Será que é o tipo da filtragem na hora de imprimir?
Eu salvo e já mando o comando GBImprimir_Click


Private Sub GBImprimir_Click()
Dim Resp As Byte
DataSisAuto.rsCmdPedidos.Filter = [Ô]PedidoID = [ô][Ô] & txtPedidoID.Text & [Ô][ô][Ô]
If Len(txtPedidoID.Text) <= 0 Then
MsgBox [Ô]Selecione o Pedido para Impressão! [Ô], vbExclamation, [Ô] Sisnews Sistemas [Ô]
Else
Dim a
a = MsgBox([Ô]Confirma a Impressão de : [Ô] & txtNome.Text & [Ô] ![Ô], vbYesNo + vbQuestion, [Ô] Impressão [Ô])
If a = vbYes Then
PrintPrdidoAtual.Show 1
End If
End If
Unload PrintPrdidoAtual
End Sub

Grato