Prilicno siroka tema, prilicno "prezvakana" na forumu. Za pocetak, procitaj nesto od TOP tema iz ovog foruma npr. http://www.elitesecurity.org/t104515

Hvala na ponudjenom linku. Gledao sam na pomenutom linku i nasao sam neke korisne stvari. Da li mozes da mi kazes kako da dodam Print metodu u listu tj. pokusavao sam da stampam sa Printer.Print ali se nije desavalo nista pa sam onda ovde video da Print metoda nije dostupna. Ako znas kako da je iskoristim molio bih te da odgovoris. Hvala....

Mozda bi mogao da ubacis kontrolu CommonDialog (tako nesto se zove).

CommonDialog1.Showprinter
.
.
.
.

Slobodno koristis Print metodu, iako ti se ne nudi. Ona stampa tekst koji je parametar na tekucoj poziciji u tekucem fontu.

Hvala Gorane i Bojane.
<sub>[Ovu poruku je menjao Deyan_80 dana 17.11.2006. u 21:13 GMT+1]

[Ovu poruku je menjao Deyan_80 dana 23.11.2006. u 13:33 GMT+1]</sub>

nisam siguran da ti je pametno da dajes svoj broj u javnost (nikad se ne zna, moze da se nadje neka budala koja ce da te zeza non-stop)

a ako imas pitanja u vezi vb-a postavi ovde na forumu (predhodno koristi pretragu, jer je moguce da je vec odgovoreno na to sto te muci), jer mozda ce nekome kasnije zatrebati to isto sto i tebi...

Probaj ovaj kod, meni radi. Pravio sam drugaru programče za štampanje memoranduma, ponuda i sl., tako da su na formi bili textboxovi, labele i linije. Nekakav bug postoji u VB6, pa mi ovo nije proradilo od prve, Pomogla je čuvena naredba On Error Resume Next, koja vredi Nobelove nagrqade.::))


Sub Stampaj()
Dim kont As Control
On Error Resume Next
For Each kont In Racun.Controls
If kont.Container.Left < 210 Then 'ovaj uslov možeš da izostaviš, bio je potreban za moju formu
If (TypeOf kont Is Label) Then
Printer.Font.Size = kont.Font.Size
Printer.Font.Name = kont.Font.Name
Printer.Font.Bold = kont.Font.Bold
Select Case kont.Alignment
Case 0
Printer.CurrentX = kont.Container.Left + kont.Left
Printer.CurrentY = kont.Container.Top + kont.Top
Printer.Print kont.Caption
Case 1
Printer.CurrentX = kont.Container.Left + kont.Left + kont.Width - TextWidth(kont.Caption)
Printer.CurrentY = kont.Container.Top + kont.Top
Printer.Print kont.Caption
End Select
If kont.BorderStyle = 1 Then
Printer.DrawWidth = 8
Printer.Line (kont.Container.Left + kont.Left - 1, kont.Container.Top + kont.Top)- _
(kont.Container.Left + kont.Left + kont.Width, kont.Height + kont.Container.Top + kont.Top), , B
End If
ElseIf (TypeOf kont Is Line) Then
Printer.DrawWidth = 8
Printer.Line (kont.Container.Left + kont.X1, kont.Container.Top + kont.Y1)- _
(kont.Container.Left + kont.X2, kont.Container.Top + kont.Y2)
ElseIf TypeOf kont Is TextBox Then
Printer.Font.Name = kont.Font.Name
Printer.Font.Size = kont.Font.Size
Printer.Font.Bold = kont.Font.Bold
Printer.CurrentX = kont.Left + kont.Container.Left
Printer.CurrentY = kont.Top + kont.Container.Top
Printer.Print kont.Text
End If
End If
Next

End Sub

To bi bilo to.

Hvala puno. Imao sam malo muke ali sam uspeo.