Kako da zadam da posle form1.printform odradi i stampanje u fail pdf ili ...
Stampanje u fajl?
Zaključano
Zakačeno
kada ti izadje da izaberes stampac izaberi neki koji stampa pdf.
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
Ako imas instaliran neki pdf stampac, samo posle Form1.Printform zamenis ime stampaca sa Printer.DeviceName "imestampacazapdf" i onda ponovo Form1.PrintForm
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.
Potpis
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'
dobijan poruku "Invalid use of property"
i kako mislis da ti neko pomogne ako ne das ni liniju koda?
izmenjeno 1 put, poslednji put Aleksandar Ružičić 26.08.2008. u 16:01
Izmene poruke
- Aleksandar Ružičić26.08.2008. u 16:01zapis iz teksta poruke
Code:
Private Sub Command2_Click()
printnalog.PrintForm
Printer.DeviceName "PrimoPDF"
printnalog.PrintForm
End Sub
Private Sub Command2_Click()
printnalog.PrintForm
Printer.DeviceName "PrimoPDF"
printnalog.PrintForm
End Sub
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:
p.s. ubuduce kada postujes kod koristi [code][/code] tagove.
Code:
Printer.DeviceName = "PrimoPDF"
Printer.DeviceName = "PrimoPDF"
p.s. ubuduce kada postujes kod koristi [code][/code] tagove.
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
Dobijam poruku "Wrong number of arguments or invalid properti assigment"
Code:
Private Sub Command2_Click()
printnalog.PrintForm
Printer.DeviceName = "PrimoPDF"
printnalog.PrintForm
End Sub
Private Sub Command2_Click()
printnalog.PrintForm
Printer.DeviceName = "PrimoPDF"
printnalog.PrintForm
End Sub
i sta kaze google kad ga pitas za tu poruku?
Izmedju ostalog i ovo
http://www.computerperformance.co.uk/Logon/code/code_800A01C2.htm
ali nisam uspeo da ga razumem
http://www.computerperformance.co.uk/Logon/code/code_800A01C2.htm
ali nisam uspeo da ga razumem
Koliko sam ja skontao na brzaka treba ovako
Code:
Set Printer.DeviceName = "PrimoPDF"
Set Printer.DeviceName = "PrimoPDF"
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
"
....
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
Potpis
HomePage http://www.eurora3d.com
Taj primopdf stampac koristim vec jako dugo i radi bez problema
a probao sam i sa
izbacuje istu gresku
a probao sam i sa
Code:
Set Printer.DeviceName = "PrimoPDF"
Set Printer.DeviceName = "PrimoPDF"
izbacuje istu gresku
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:
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...
Code:
Dim prnt As Object
For Each prnt In VB.Printers
if prnt.DeviceNAme = "PrimoPDF" Then
Set Printer = prnt
Exit For
End If
Next
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...