Dim DB As Database
Dim rs As Recordset, rs1 As Recordset, rs2 As Recordset
Dim strData As String
Dim intFileNum As Integer
 intFileNum = FreeFile()
Set DB = CurrentDb
Set rs = DB.OpenRecordset("N100LabelSlog1")
Open "C:\Nalozi_Topola.dat" For Output Shared As #intFileNum
  Rem txt = "Plu;Name;Vat;Bar;Price;PrcType;Stn;Grp"
   With rs
Do Until rs.EOF
strData = ![RacunPodnosioca] & Space(18 - Len(![RacunPodnosioca]))
strData = strData & ![NazivPodnoisioca] & Space(35 - Len(![NazivPodnoisioca]))
strData = strData & ![MestoPodnosioca] & Space(10 - Len(![MestoPodnosioca]))
strData = strData & Format(![Datumslanja], "ddmmyy")
strData = strData & Format(![slobodno], "") & Right$(![slobodno] & "                                                ", 48)
strData = strData & Left$(String(2 - Len(![Brojpresekadans]), "0") & ![Brojpresekadans], 2)
strData = strData & Left$(String(6 - Len(![UkupnoPojNaloga]), "0") & ![UkupnoPojNaloga], 6)
strData = strData & Left$(String(18 - Len(![Ukupiznos]), "0") & ![Ukupiznos], 18)
strData = strData & Format(![slobodno2], "") & Right$(![slobodno2] & "                                    ", 36)
strData = strData & Left$(String(1 - Len(![Tipsloga]), "0") & ![Tipsloga], 1)
Print #intFileNum, strData
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End With
Set rs1 = DB.OpenRecordset("N100ZbirniSlog2")
  With rs1
Do Until rs1.EOF
strData = ![Racuntereti] & Space(18 - Len(![Racuntereti]))
strData = strData & ![Nazivracuna] & Space(35 - Len(![Nazivracuna]))
strData = strData & ![Mestoracuna] & Space(10 - Len(![Mestoracuna]))
strData = strData & Left$(String(15 - Len(![Ukupiznos]), "0") & ![Ukupiznos], 15)
strData = strData & Left$(String(5 - Len(![UkupnoBRNaloga]), "0") & ![UkupnoBRNaloga], 5)
strData = strData & Format(![slobodno], "") & Right$(![slobodno] & "                                                                                         ", 89)
strData = strData & Format(![godina], "yy")
strData = strData & Left$(String(3 - Len(![Redbrdanau godini]), "0") & ![Redbrdanau godini], 3)
strData = strData & Left$(String(2 - Len(![vrstadokum]), "13") & ![vrstadokum], 2)
strData = strData & Left$(String(1 - Len(![Tipsloga]), "9") & ![Tipsloga], 1)
Print #intFileNum, strData
rs1.MoveNext
Loop
rs1.Close
Set rs1 = Nothing
End With
Set rs2 = DB.OpenRecordset("N100PojedinacniSlog3")
  With rs2
Do Until rs2.EOF
strData = ![RacuPojedinacni] & Space(18 - Len(![RacuPojedinacni]))
strData = strData & ![NazivracunaP] & Space(35 - Len(![NazivracunaP]))
strData = strData & ![MestoracunaP] & Space(10 - Len(![MestoracunaP]))
strData = strData & Left$(String(1 - Len(![NacinIzvrsenjaP]), "0") & ![NacinIzvrsenjaP], 1)
strData = strData & Left$(String(2 - Len(![BrModelZaduz]), "97") & ![BrModelZaduz], 2)
strData = strData & ![PozBrZaduzenja] & Space(22 - Len(![PozBrZaduzenja]))
strData = strData & ![SvrhaPlacanja] & Space(36 - Len(![SvrhaPlacanja]))
strData = strData & Format(![slobodno1], "") & Right$(![slobodno1] & "      ", 6)
strData = strData & Left$(String(3 - Len(![SifraPlacanja]), "0") & ![SifraPlacanja], 3)
strData = strData & Left$(String(15 - Len(![IznosPlacanja]), "0") & ![IznosPlacanja], 15)
strData = strData & Left$(String(2 - Len(![BrModelOdobrenje]), "0") & ![BrModelOdobrenje], 2)
strData = strData & ![PozBrOdobrenja] & Space(22 - Len(![PozBrOdobrenja]))
strData = strData & Format(![DatValute], "yymmdd")
strData = strData & Format(![slobodno1], "") & Right$(![slobodno1] & " ", 1)
strData = strData & Left$(String(1 - Len(![Tipsloga]), "1") & ![Tipsloga], 1)
Print #intFileNum, strData
rs2.MoveNext
Loop
rs2.Close
Set rs2 = Nothing
End With
Close #intFileNum
 
MsgBox "Operacija snimanja u arhivu je trajala " & (GetTickCount - OldTick) / 1000 & " sekundi", vbOKOnly, "ARHIVA SNIMANJA"
End Sub