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

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.

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

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

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?

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.

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.