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
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.