PRIMJERI

TringFiskalniPrinter printer = new TringFiskalniPrinter();
            KasaOdgovor odgovor = new KasaOdgovor();
            StatusUredjaja status;

            //vrsta fiskalnog uređaja
            printer.VrstaUredjaja = VrsteFiskalnihUredjaja.TringTF1;

            //promijeni režim u emulator
            printer.PromjeniRezimRada(RezimRada.Emulator);

            //postavka ip adrese Tring.Fiscal.Server
            //localhost za slučaj lokalnog server
            //ip adresa ili mrežni naziv računala u slučaju da je server lociran u mreži
            printer.IPadresa("localhost");

            //testiranje dostupnosti Tring.Fiscal.Server
            odgovor = printer.TestirajTringFiscalServer();

            if (odgovor.VrstaOdgovora == VrsteOdgovora.OK)
            {
                //server dostupan
                //provjera statusa uredjaja
                status = printer.ProvjeriStatusUredjaja();
                if (status == StatusUredjaja.Normalan || status == StatusUredjaja.Test)
                {
                    //nastavak koda
                    OleDbConnection con = new OleDbConnection(@"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\..\..\..\VB6\pos.mdb");
                    OleDbCommand command = new OleDbCommand("select * from KOMITENTI", con);
                    OleDbDataReader dr;
                    try
                    {
                        con.Open();
                        dr = command.ExecuteReader(CommandBehavior.CloseConnection);

                        while (dr.Read())
                        {
                            Kupac kup = new Kupac();
                            kup.IDbroj = dr.GetValue(0).ToString(); //samo brojevi ipak
                            kup.Naziv = dr.GetString(1);
                            kup.Adresa = dr.GetString(2);
                            kup.PostanskiBroj  = int.Parse(dr.GetString(3));
                            kup.Grad = dr.GetString(4);

                            //dodati u printer
                            odgovor = printer.UpisiKupca(kup);
                            if (odgovor.VrstaOdgovora == VrsteOdgovora.OK)
                            {
                                Debug.WriteLine(kup.Naziv + ":OK");
                            }
                        }
                        dr.Close();
                        con.Close();


                    }
                    catch (Exception ex)
                    {

                        MessageBox.Show(ex.Message);
                    }
                }
            }
            else
            {
                //greška
            }
            printer = null;
            odgovor = null;

Dim printer As TringFiskalniPrinter
Dim odgovor As KasaOdgovor
Dim status As StatusUredjaja
Dim listaKupaca As KupacList
Dim kupac As kupac

Dim i As Integer

Dim ado As New ADODB.Recordset
Dim con As New ADODB.Connection
With con
        .Provider = "MSDataShape"
        .Properties("Data Provider") = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = Replace("D:\PROJEKTI\Tring.Fiscal\Sample\VB6\pos.mdb", vbNullChar, "")
        .Properties("User ID").Value = "Admin"
End With

Set printer = New TringFiskalniPrinter
Set odgovor = New KasaOdgovor

'vrsta fiskalnog uređaja
printer.VrstaUredjaja = VrsteFiskalnihUredjaja_TringTF1

'promijeni režim u emulator
printer.PromjeniRezimRada (RezimRada_Emulator)

'postavka ip adrese Tring.Fiscal.Server
'localhost za slučaj lokalnog server
'ip adresa ili mrežni naziv računala u slučaju da je server lociran u mreži
printer.IPadresa ("localhost")

'testiranje dostupnosti Tring.Fiscal.Server
Set odgovor = printer.TestirajTringFiscalServer()

If odgovor.VrstaOdgovora = VrsteOdgovora_OK Then
    'server dostupan
    status = printer.ProvjeriStatusUredjaja()
    'provjera statusa uredjaj
    If status = StatusUredjaja_Normalan Or status = StatusUredjaja_Test Then
        'nastavak koda
        'otvaranje konekcije
        Call con.Open
        Set ado.ActiveConnection = con
        'zadavanje SQL naredbe
        ado.Source = "select * from KOMITENTI"
        Call ado.Open

        'učitavanje kupaca iz recordseta u listu artikala
        For i = 0 To ado.RecordCount - 1
            'kreiranje novog kupca
            Set kupac = New kupac
            kupac.IDbroj = ado!JIB
            kupac.Naziv = ado!NazivKomitenta
            kupac.Adresa = ado!Adresa1
            kupac.PostanskiBroj = ado!Adresa2
            kupac.Grad = ado!Adresa3

            'upis kupca u fiskalni printer
            Set odgovor = printer.UpisiKupca(kupac)
            If odgovor.VrstaOdgovora = VrsteOdgovora_OK Then
                'kupca uspješno prijavljen u fiskalni printer
                Debug.Print kupac.Naziv + ":" + "OK"
            End If
            ado.MoveNext
        Next i
        'zatvaranje konekcije
        Call con.Close



    End If
Else
    'greška
    '....
End If

Set printer = Nothing
Set odgovor = Nothing