Nilton
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 16/05/2009 23:34 hs
Consegui se enteresar pra alguem fiz assim:
Private Sub cmdImprimir_Click()
Dim Resp As Byte
DataSisnews.rsCmdPedidos.Filter = "Nome = '" & txtDadosPesquisa1.Text & "'"
If Len(txtDadosPesquisa1.Text) <= 0 Then
MsgBox "Selecione o Pedido para Impressão! ", vbExclamation, " Sisnews Sistemas "
Else
Dim a
a = MsgBox("Confirma a Impressão de : " & txtDadosPesquisa1.Text & " !", vbYesNo + vbQuestion, " Impressão ")
If a = vbYes Then
txtDadosPesquisa1.SetFocus
PrintPrdidoAtual.PrintReport
End If
End If
End Sub
t+
Nilton
|
|
|
|
|
|
|
|
Postada em 16/05/2009 23:37 hs
Postada em 16/05/2009 23:34 hs  njnews@bol.com.br
Consegui se enteresar pra alguem fiz assim:
Private Sub cmdImprimir_Click()
Dim Resp As Byte
DataSisnews.rsCmdPedidos.Filter = "Nome = '" & txtDadosPesquisa1.Text & "'"
If Len(txtDadosPesquisa1.Text) <= 0 Then
MsgBox "Selecione o Pedido para Impressão! ", vbExclamation, " Sisnews Sistemas "
Else
Dim a
a = MsgBox("Confirma a Impressão de : " & txtDadosPesquisa1.Text & " !", vbYesNo + vbQuestion, " Impressão ")
If a = vbYes Then
txtDadosPesquisa1.SetFocus
PrintPrdidoAtual.PrintReport
End If
End If
End Sub
no txtDadosPesquisa1,2,3,4 coloca cada tipo de pesquisa tipo, nome, cidade, numero etc..
t+
Nilton
|
|
|
|
|
