Nije ti stampao zato sto tekst u skrivenoj listi nije bio selektovan = ""
Greska1 u unosu formatiraj npr ovako (samo ispravi).
Code:
Private Sub cmdUnesiRacun_Click()
List3.Clear
Datum = txtDatum.Text
Valuta = Valuta.Text
Sifra = txtSifraRacun.Text
ImeArtikla = txtImeArtiklaRacun.Text
Kolicina = txtKolicina.Text
Cena = txtCena.Text
List2.AddItem "Datum: " & Datum & ", " & "Sifra: " & Sifra & ", " & "Ime Artikla: " & ImeArtikla & ", " & "Kolicina: " & Kolicina & ", " & "Cena: " & Cena & Valuta & "."
Valuta.Text = ""
txtSifraRacun.Text = ""
txtImeArtiklaRacun.Text = ""
txtKolicina.Text = ""
txtCena.Text = ""
List3.AddItem "Datum: " & Datum & ", " & "Sifra: " & Sifra & ", " & "Ime Artikla: " & ImeArtikla & ", " & "Kolicina: " & Kolicina & ", " & "Cena: " & Cena & Valuta & "."
'List3.AddItem "RAÈUN"
'List3.AddItem Form2.txtIme.Text
'List3.AddItem Datum
'List3.AddItem "Šifra: " & Sifra
'List3.AddItem ImeArtikla
'List3.AddItem "Kolièina: " & Kolicina
'List3.AddItem "Cena: " & Cena & Valuta
cmdSacuvajRacun_Click
End Sub
U click event vidljive List2 stavi donji kod da bi se selektovala i nevidljiva
Code:
Private Sub List2_Click()
List3.ListIndex = List2.ListIndex
End Sub
i promeni subrutinu za stampanje ovako
Code:
Private Sub cmdStampaj_Click()
On Error GoTo err
If List3.ListIndex = -1 Then Exit Sub 'Ako nije nista selektovano u skrivenoj listi
MsgBox "Sada æe poèeti štampanje zadnjeg raèuna koji ste izdali na vašem default štampaèu", vbInformation, "Information"
Printer.Print Form1.List3.Text
Printer.EndDoc
Exit Sub
err:
MsgBox err.Description
End Sub
Pozdrav