Postada em 31/12/2006 01:43 hs
'declaração
Global olddb As Database
Global oldws As Workspace
Global banco$
dim bb1$ as Object
dim regdata
dim novo
dim contar
dim u
dim notaatual
'conexão com bd
banco$ = App.Path + "seubd.MDB"
Set oldws = DBEngine.Workspaces(0)
Set olddb = oldws.OpenDatabase(banco$, False, False, ";PWD=" & um & "")
'função
private sub Funcao_imprimir ( )
bb1$ = "select * from Suatabela where Campofiltrado like '*/" & date & "*'"
Set regdata = olddb.OpenRecordset(bb1$, dbOpenDynaset)
regdata.Sort = "Campofiltrado" 'este campo deve ser indexado
Set novo = regdata.OpenRecordset()
If novo.RecordCount = 0 Then Beep: Beep: Beep: Beep: Text9 = "": MsgBox "Nada a Imprimir.", 16, fext10: GoTo pula
novo.MoveMin
contar = novo.RecordCount
u = 1
For u = 1 To contar
If u = 1 Then GoTo colocado1
novo.Move 1
colocado1:
notaatual= Trim(novo("Campofiltrado"))
Printer.Print notaatual
Next
Printer.EndDoc
pula:
end sub
'referencia ao DAO 3.6
|
