Imprimir apenas 1 registro da Banco de Dados


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Imprimir apenas 1 registro da Banco de Dados

Roberto
não registrado

ENUNCIADA !

Postada em 16/07/2004 20:04 hs

Segue o codigo abaixo, mas eu não visualizar os dados na Tabela, atraves do Combo1.text

para selecionar Nome, etc para imprimir apenas o registro selecionado

Option Explicit
Dim area As Workspace
Dim db As Database
Dim rs As Recordset

Private Sub Command1_Click()
Call imprime_dados
End Sub
Private Sub imprime_dados()
Dim tamanhofolha As Integer
Dim i As Integer

Set db = rs.OpenRecordset("Select * from cadastro where Nome =' " & Combo1.Text & "'")

If rs.RecordCount > 0 Then

    rs.MoveMin

    Do While Not rs.EOF
    Combo1.AddItem IIf(IsNull(rs("Nome")), "", rs("Nome"))

Printer.FontName = "Arial"
Printer.FontSize = "10"
tamanhofolha = Printer.ScaleHeight - 1440

contapagina = 0
Call cabecalho

Do While Not rs.EOF

If Printer.CurrentY >= tamanhofolha Then
Printer.NewPage
Call cabecalho
End If

'-------------------------------------------
Printer.Print Tab(0); rs("nome");
Printer.Print Tab(30); rs("endereço");
Printer.Print Tab(60); rs("cidade");
Printer.Print Tab(90); rs("estado");
Printer.Print Tab(95); rs("cep")
'--------------------------------------------

rs.MoveNext

Loop

Printer.EndDoc

MsgBox "Os dados foram enviados para a impressora ... ! "

End Sub

Private Sub Command2_Click()
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Unload Me
End Sub

Private Sub Form_Load()

Set area = DBEngine.Workspaces(0)
Set db = area.OpenDatabase(App.Path & "cadastro.mdb")
Set rs = db.OpenRecordset("clientes", dbOpenTable)
rs.Index = "Nome"

rs.MoveMax
rs.MoveMin
letreiro.Visible = True

Label1.Visible = True
Label2.Visible = True
Label3.Visible = True

Label2.Caption = rs.RecordCount

End Sub

MasterPrint

MIRANDOPOLIS
SP - BRASIL

ENUNCIADA !

Postada em 17/07/2004 08:43 hs

Roberto, me desculpe mas eu não entendi direito o que você está querendo.
Ora, se você quer apenas UM REGISTRO, não precisa dos laços e nem mover o RS.

O código que está utilizando dá algum tipo de erro? Qual?
Como está saindo a impressão?

t+

Feliz aquele que passa o que sabe e aprende o que ensina

Roberto
não registrado

ENUNCIADA !

Postada em 17/07/2004 15:49 hs

Selecionar no Combo apenas um dos registro e imprimir,

Option Explicit
Dim area As Workspace
Dim db As Database
Dim rs As Recordset

Private Sub Command1_Click()
Printer.Print Tab(0); rs("nome");

End Sub

Private Sub Form_Load()

Set area = DBEngine.Workspaces(0)
Set db = area.OpenDatabase(App.Path & "cadastro.mdb")
Set rs = db.OpenRecordset("clientes", dbOpenTable)
rs.Index = "Nome"

Do While Not rs.EOF
       Combo1.AddItem rs("Nome")
       Combo1.ListIndex = 0

    rs.MoveNext
      Loop


End Sub

MasterPrint

MIRANDOPOLIS
SP - BRASIL

ENUNCIADA !

Postada em 18/07/2004 09:04 hs

Para que eu possa te prestar ajuda com mais precisão, por favor responda as questões acima.
t+

Feliz aquele que passa o que sabe e aprende o que ensina

Marcio

RIO CLARO
SP - BRASIL

Postada em 18/07/2004 10:15 hs

Roberto, se for o que estou pensando tente o seguinte:

no evento click do combo coloque o seguinte código

rs.FindMin "Nome = '" & Combo1.Text & "'"

If rs.NoMatch = True Then

msgbox("Registro não encontrado")

Else

coloque o código para imprimir aqui

End if

Se não for isso, desconsidere.

Até mais

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR