[es] - stampa iz Accessa na razlicitim formatima papira

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.dynamic.stcable.net.

+10 Profil

stampa iz Accessa na razlicitim formatima papira

^{22.02.2010. u 15:40 - pre 172 meseci}

pretraga mi nije bas nesto uspela pa ajd da pitam

da li je neko imao prilike da Accessom tj sa vba da upravlja stampacem po pitanju izbora formata papira. Na primer u jednoj fioci imam standardan A4 a u drugoj neki Custom Size, pa u zavisnosti od toga sta stampam stampac povuce iz prve ili iz druge fioke.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.

+8 Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{23.02.2010. u 08:17 - pre 172 meseci}

Pa naravno da mozes.
A komandu stavis na on open reporta

Printer.PaperSize= acPRPSA4

acPRPS10x14
acPRPS11x17
acPRPSA3
acPRPSA4
acPRPSA4Small
acPRPSA5
acPRPSB4
acPRPSB5
acPRPSCSheet
acPRPSDSheet
acPRPSEnv10
acPRPSEnv11
acPRPSEnv12
acPRPSEnv14
acPRPSEnv9
acPRPSEnvB4
acPRPSEnvB5
acPRPSEnvB6
acPRPSEnvC3
acPRPSEnvC4
acPRPSEnvC5
acPRPSEnvC6
acPRPSEnvC65
acPRPSEnvDL
acPRPSEnvItaly
acPRPSEnvMonarch
acPRPSEnvPersonal
acPRPSESheet
acPRPSExecutive
acPRPSFanfoldLglGerman
acPRPSFanfoldStdGerman
acPRPSFanfoldUS
acPRPSFolio
acPRPSLedger
acPRPSLegal
acPRPSLetter
acPRPSLetterSmall
acPRPSNote
acPRPSQuarto
acPRPSStatement
acPRPSTabloid
acPRPSUser

Odgovor na temu

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.dynamic.isp.telekom.rs.

+10 Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{23.02.2010. u 11:19 - pre 172 meseci}

u hvala, ovo nisam nikad do sad video :-)

naravno da nisam video, kad ne znam ni kako da trazim :-)

evo sta Microsoft kaze

za one koji ovo citaju, poslednja stavka u Trtkovom postu acPRPSUser je za Custom Size format.

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.adsl.net.t-com.hr.

+8 Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{23.02.2010. u 15:32 - pre 172 meseci}

I jos sto cuda mozes napraviti.
Eto ja sam si napravio da mogu postelavati ljevu i gornju marginu , imas primjer negdje na forumu
Veoma je zahvalno kod stampanja razlicitih formulara

Odgovor na temu

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.dynamic.stcable.net.

+10 Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{23.02.2010. u 21:09 - pre 172 meseci}

Dok sutra ne dodjem do stampaca za koji sve ovo pokusavam da napravim, jedno pitanjce

malo sam se zacitao koje sve mogucnosti imam pa sam naisao na nesto sto mi se cini da resava moj problem

Pitanje je da li svojsvo
acPRBNLower povlaci papir iz donje fioke a
acPRBNUpper iz gornje fioke
ako je u pitanju HP LJ1010 gde je u stvari gornja fioka manual feed

Odgovor na temu

maliradoznalac
radoznalac, okolina

Član broj: 215676
Poruke: 278
*.dynamic.isp.telekom.rs.

+10 Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{24.02.2010. u 11:43 - pre 172 meseci}

Obzirom da jos uvek nisam uspeo da napravim ono sto hocu, postavljam konkretnije pitanje

Kako da nateram stampac da povuce papir iz fioke ili iz manual feed-a po potrebi

Mislio sam da bi mi Printer.PaperBin svojstvo bilo korisno pa sam probao i sa
Printer.PaperBin = acPRBNCassette i sa
Printer.PaperBin = acPRBNLower

ali ako stampac ima nesto u manual feed-u, uvek prvo povuce odatle.

Ima li neko ideju?

Odgovor na temu

golic
Doboj

Član broj: 91529
Poruke: 82
79.143.169.*

Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{24.02.2010. u 13:41 - pre 172 meseci}

Nasao sam na netu............ovo je za HP4650HDN

DoCmd.OpenReport "SampleReport", acViewPreview
Dim prtNew As Printer
Set prtNew = Reports("SampleReport").Printer
prtNew.Duplex = acPRDPHorizontal
Select Case Me.ComboPrinterBin
Case "Auto"
prtNew.PaperBin = acPRBNAuto
Case "Cassette"
prtNew.PaperBin = acPRBNCassette
Case "Envelope"
prtNew.PaperBin = acPRBNEnvelope
Case "EnvManual"
prtNew.PaperBin = acPRBNEnvManual
Case "FormSource"
prtNew.PaperBin = acPRBNFormSource
Case "LargeCapacity"
prtNew.PaperBin = acPRBNLargeCapacity
Case "LargeFmt"
prtNew.PaperBin = acPRBNLargeFmt
Case "Lower"
prtNew.PaperBin = acPRBNLower
Case "Manual"
prtNew.PaperBin = acPRBNManual
Case "Middle"
prtNew.PaperBin = acPRBNMiddle
Case "SmallFmt"
prtNew.PaperBin = acPRBNSmallFmt
Case "Tractor"
prtNew.PaperBin = acPRBNTractor
Case "Upper"
prtNew.PaperBin = acPRBNUpper
End Select

DoCmd.PrintOut acPrintAll, , , acHigh, TextNoForms, False
DoCmd.Close acReport, "SampleReport"

Nisam proba i ne znam da li radi, ali siguran sam da se moze neka ideja pokupiti.

Odgovor na temu

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.100.46-69.q9.net.

+79 Profil

Re: stampa iz Accessa na razlicitim formatima papira

^{24.02.2010. u 17:21 - pre 172 meseci}

AKo su u pitanju razliciti reporti, onda mozes za svaki od njih da podesis u Page SetUp iz kog tray-a da vuce papir. Starinski nacin, radi za neke situacije bez problema.

Pre mnogo godina (1996?) sam imao potrebu da stampam report na belom papiru, a naslovnu stranu na zelenom debelom papiru. Papiri su bili u dve razlicite ladice. Napravio sam dva reporta, jedan za naslovnu stranicu, drugi za ostatak reporta. Onda sam kazao

DoCmd.OpenReport ReportName:="NazlovnaStrana", WhereCondition:=....., View:=acNormal (= print)
DoCmd.OpenReport ReportName:="NazlovnaStrana", WhereCondition:=....., View:=acNormal (= print)

Tako je sa stampaca izasala naslovna strana i za njom ostatak reporta.

Odgovor na temu