Jednostavno zapises file kao TXT i onda stampas.
Function RPrint()
Dim TXT As String
Dim P As String
P = Db_Putanja
Open P & "\RPrint.bat" For Output Shared As #1
TXT = "mode com2 BAUD=8600 DATA=8 PARITY=NONE"
Print #1, TXT
TXT = "COPY " & P & "\Stampa.txt LPT1:"
Print #1, TXT
Close #1
TXT = Shell(P & "\Rprint.bat", vbHide)
End Function
Function Db_Putanja() As String
'----------------------------------------------
'Ova funkcija pronalazi putanju postojeće baze
'Autor funkcije ZXZ
'_________________________________________
Dim Db As DATABASE
Dim Putanja As String
Set Db = DBEngine(0)(0)
Putanja = Db.Name
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Putanja = Left$(Putanja, Len(Putanja) - 1)
Db_Putanja = Putanja
Set Db = Nothing
End Function
ovo je kod za stapmu.
ako treba kod za upis kazi
zxz