[ Brain raider @ 04.08.2008. 13:25 ] @
Kako da zadam da posle form1.printform odradi i stampanje u fail pdf ili ...
[ Aleksandar Ružičić @ 04.08.2008. 13:36 ] @
kada ti izadje da izaberes stampac izaberi neki koji stampa pdf.
[ Brain raider @ 04.08.2008. 13:46 ] @
Meni treba da to bude reseno u kodu da kada se da naredba za stampanje da ka automatski odradi i u pdf-u za potrebe evidencije
[ Aleksandar Vasic @ 04.08.2008. 13:49 ] @
Ako imas instaliran neki pdf stampac, samo posle Form1.Printform zamenis ime stampaca sa Printer.DeviceName "imestampacazapdf" i onda ponovo Form1.PrintForm
[ dava @ 04.08.2008. 14:44 ] @
Predpostavljam da imas neko dugme tipa 'Stampaj'. Trebao bi da po dogadjaju (recimo) stampaj_click pored poziva stampaca pozoves i neku metodu koja ce ti to prebaciti u pdf i snimiti na predvidjeno mjesto. Ako ne mora biti pdf mozda ti je to lakse izvesti sa obicnim txt fajlom.
[ Brain raider @ 20.08.2008. 14:11 ] @
dobijan poruku "Invalid use of property"
[ Aleksandar Ružičić @ 20.08.2008. 20:04 ] @
i kako mislis da ti neko pomogne ako ne das ni liniju koda?
[ Brain raider @ 26.08.2008. 13:38 ] @
Code:
Private Sub Command2_Click()
printnalog.PrintForm
Printer.DeviceName "PrimoPDF"
printnalog.PrintForm
End Sub


[Ovu poruku je menjao Aleksandar Ružičić dana 26.08.2008. u 16:01 GMT+1]
[ Aleksandar Ružičić @ 26.08.2008. 15:04 ] @
DeviceName je property Printer objekta a ne metoda, propertije ne mozes da pozivas (Printer.DeviceName "PrimoPDF" je pozivanje metode DeviceName objekta Prineter, a kao sto sam vec rekao DeviceName je property a ne metoda (property = svojstvo, prevedeno na nas jezik), dakle samo stavi znak jednakosti i neces vise dobijati tu gresku:
Code:

Printer.DeviceName = "PrimoPDF"



p.s. ubuduce kada postujes kod koristi [code][/code] tagove.
[ Aleksandar Vasic @ 26.08.2008. 15:26 ] @
Citat:
Aleksandar Vasic: Ako imas instaliran neki pdf stampac, samo posle Form1.Printform zamenis ime stampaca sa Printer.DeviceName "imestampacazapdf" i onda ponovo Form1.PrintForm


ja sam se zeznuo, zato je pogresio, ali @Brain mogao si samo u svojoj poruci da kazes da se poruka odnosi na moj post....sve bi bilo jasno
[ Brain raider @ 27.08.2008. 08:36 ] @
Dobijam poruku "Wrong number of arguments or invalid properti assigment"


Code:
Private Sub Command2_Click()
printnalog.PrintForm
Printer.DeviceName = "PrimoPDF"
printnalog.PrintForm
End Sub


[ Aleksandar Ružičić @ 27.08.2008. 11:19 ] @
i sta kaze google kad ga pitas za tu poruku?
[ Brain raider @ 27.08.2008. 12:29 ] @
Izmedju ostalog i ovo
http://www.computerperformance.co.uk/Logon/code/code_800A01C2.htm
ali nisam uspeo da ga razumem
[ Aleksandar Vasic @ 27.08.2008. 12:44 ] @
Koliko sam ja skontao na brzaka treba ovako

Code:
Set Printer.DeviceName = "PrimoPDF"
[ Eurora3D Team @ 27.08.2008. 12:50 ] @
Ovo kaze MSDN za Printer DeviceName Property
"
....
Remarks

Each printer driver supports one or more devices — for example, HP LaserJet IIISi is a device name.

Note The effect of properties of the Printer object depends on the driver supplied by the printer manufacturer. Some property settings may have no effect, or several different property settings may all have the same effect. Settings outside the accepted range may produce an error. For more information, see the manufacturer's documentation for the specific driver.
"
Ja dobijam istu gresku iz ovog koda zato sto mi nijedan printer nije zakacen na laptop.
Mozda ime printera nije tacno (proveri ime u nekom programu koji moze da bira printer) ili drajver ne moze da se koristi ...
Probaj da otstampas nesto u pdf tim printerom iz nekog programa
[ Brain raider @ 27.08.2008. 13:40 ] @
Taj primopdf stampac koristim vec jako dugo i radi bez problema
a probao sam i sa
Code:
Set Printer.DeviceName = "PrimoPDF"

izbacuje istu gresku
[ Aleksandar Ružičić @ 27.08.2008. 14:02 ] @
moguce da je DeviceName read-only property (nemam ovde vb6 a mrzi me da googlam :p), ali koliko se ja secam ti mozes da uradis nesto oblika:
Code:

Dim prnt As Object
For Each prnt In VB.Printers
   if prnt.DeviceNAme = "PrimoPDF" Then
     Set Printer = prnt
     Exit For
  End If
Next

proguglaj malo za ovo VB.PRinters, znam da ima ali nisam nikada koristio, jednom davno sam naleteo na parce koda koje je imalo slicnu petlju...