Imam jedan mali program u visual basicu koji mi printa na stranice od recimo 1-99 i sad bi ja htio da te stranice na printeru izlaze obrnutim redosljedom. Kojom naredbom zadati 'obrnuto' printanje?
VB obrnuto printanje
Zaključano
Zakačeno
Imam TV i hocu da mi trazi kanale u nazad? Kako?
Koji program?
Koje printanje!? (DataReport, CrystalReport, API pozivi, Printer Object) ?!?!?!
Baba Vanga je umrla, i ne može da nam objasni šta i kako, zato budi malo jasniji i ne štedi reči u opisu svog problema.
Citat:
Kiter: Imam jedan mali program u visual basicu koji mi printa na stranice od recimo 1-99 i sad bi ja htio da te stranice na printeru izlaze obrnutim redosljedom. Kojom naredbom zadati 'obrnuto' printanje?
Koji program?
Koje printanje!? (DataReport, CrystalReport, API pozivi, Printer Object) ?!?!?!
Baba Vanga je umrla, i ne može da nam objasni šta i kako, zato budi malo jasniji i ne štedi reči u opisu svog problema.
izmenjeno 1 put, poslednji put Aleksandar Ružičić 23.09.2008. u 12:30
Izmene poruke
- Aleksandar Ružičić23.09.2008. u 12:30zapis iz teksta poruke
Code:
Function Ispis()
Printer.ScaleMode = 6
Printer.FontName = "Tahoma CE"
Slovo = stxt
fg = do1
Do Until fg = od1 - 1
broj = Format(fg, "0" & Slovo & "#")
Call printXY(broj, 150, 20, 66, False, False, False)
Call printXY(broj, 135, 190, 95, False, False, False)
Call printXY(broj, 170, 255, 36, False, False, False)
Printer.NewPage
fg = fg - 1
Loop
Printer.EndDoc
Exit Function
End Function
Function Ispis()
Printer.ScaleMode = 6
Printer.FontName = "Tahoma CE"
Slovo = stxt
fg = do1
Do Until fg = od1 - 1
broj = Format(fg, "0" & Slovo & "#")
Call printXY(broj, 150, 20, 66, False, False, False)
Call printXY(broj, 135, 190, 95, False, False, False)
Call printXY(broj, 170, 255, 36, False, False, False)
Printer.NewPage
fg = fg - 1
Loop
Printer.EndDoc
Exit Function
End Function
Ovo je funkcija za printanje. Sori na onakvom postu :)
Code:
Sub Ispis()
Printer.ScaleMode = 6
Printer.FontName = "Tahoma CE"
Slovo = stxt
fg = do1
For fg = od1 - 1 To do1
broj = Format(fg, "0" & Slovo & "#")
Call printXY(broj, 150, 20, 66, False, False, False)
Call printXY(broj, 135, 190, 95, False, False, False)
Call printXY(broj, 170, 255, 36, False, False, False)
Printer.NewPage
Next fg
Printer.EndDoc
End Sub
Sub Ispis()
Printer.ScaleMode = 6
Printer.FontName = "Tahoma CE"
Slovo = stxt
fg = do1
For fg = od1 - 1 To do1
broj = Format(fg, "0" & Slovo & "#")
Call printXY(broj, 150, 20, 66, False, False, False)
Call printXY(broj, 135, 190, 95, False, False, False)
Call printXY(broj, 170, 255, 36, False, False, False)
Printer.NewPage
Next fg
Printer.EndDoc
End Sub
Ovo bi trebalo da ti stampa obrnuto od tvoje funkcije, s' tim da ce sad i brojevi ici obrnutim redosledom.
Pretpostavljam da se promenljive deklarisao u deklaracijama.
>> Pretpostavljam da se promenljive deklarisao u deklaracijama.
Hm, nisam :) Kak to?
Hm, nisam :) Kak to?
Code:
Dim intMojaPromenljiva As Integer
Dim blnMojaPromenljiva As Long
Dim strMojaPromenljiva As String
Dim blnMojaPromenljiva As Boolean
...
Dim Nesto As typNesto
Dim intMojaPromenljiva As Integer
Dim blnMojaPromenljiva As Long
Dim strMojaPromenljiva As String
Dim blnMojaPromenljiva As Boolean
...
Dim Nesto As typNesto
Da, radi, nisam trebao deklarirati ovo, radi i bez toga :) Hvala!
A i samo sam maknuo '-1' iz:
Da printanje pocne sa '1'.
A i samo sam maknuo '-1' iz:
Code:
For fg = od1 - 1 To do1
For fg = od1 - 1 To do1
Da printanje pocne sa '1'.
Ne deklarisanje promenljivih je losa programersla navika, i koliko mi je poznato samo Basic-oliki jezici to dozvoljavaju.
Kad deklarises promenljivu ti rezervises mesto za nju u memoriji. U VB-u ukoliko promenljiva nije deklarisana ona je po default-u tipa Variant.
Kad deklarises promenljivu ti rezervises mesto za nju u memoriji. U VB-u ukoliko promenljiva nije deklarisana ona je po default-u tipa Variant.
Citat:
stefanpn: Ne deklarisanje promenljivih je losa programersla navika, i koliko mi je poznato samo Basic-oliki jezici to dozvoljavaju.
php, javascript, python, ruby, ... i koji god oces dinamicki jezik :)