salve a tutti,
sebbene abbia seguito alla lettera la guida d access..nn riesco ad impostare il cassetto dal quale stampare!!!!
Il problema è ke si autilizzando l'oggetto printer sia la proprietà prtdevmode..nn cambia nulla....mi stampa con i valori predefiniti della stampante sebbene da codice risulti ke abbia cambiato qcosa!!!
Aiuto!!!
VaneX
..ho trovato il codice sul sito della mcirosfot...ma niente!!!
Il cassetto nn viene impostato
www.microsoft.com/?kbid=200546
...ho creato il modulo..
e da form ho rikiamato la procedura per l'impostazione del cassetto con il nome del mio modulo!!!!
Niente da fare..mi stampa nel cassetto ke è predefinito!
VaneX
..risolto..
..
solo la dikiarazione del tipo andava nel modulo...
VaneX
..in ogni caso..visto ke serve la struttura del report e io sono in mde...come faccio?
ovvero funziona solo con mdb...la propretà nn va con mde!
Riporto codice:
Sub setPaperSource(rptName As String)
Dim Rpt As Report
Dim dm As zwtDeviceMode
Dim DevString As zwtDevModeStr
Dim DevModeExtra As String
DoCmd.SetWarnings False
' Set Paper Tray for page 1
DoCmd.OpenReport rptName, acDesign
Set Rpt = Reports(rptName)
DevModeExtra = Rpt.PrtDevMode
DevString.RGB = DevModeExtra
LSet dm = DevString
dm.dmDefaultSource = 259
LSet DevString = dm
Mid$(DevModeExtra, 1, 68) = DevString.RGB
Rpt.PrtDevMode = DevModeExtra
DoCmd.Save acReport, Rpt.Name
DoCmd.SelectObject acReport, Rpt.Name, True
' DoCmd.PrintOut acPages, 1, 1
DoCmd.SetWarnings True
End Sub
ed il modulo:
Type zwtDevModeStr
RGB As String * 94
End Type
Type zwtDeviceMode
dmDeviceName As String * 16
dmSpecVersion As Integer
dmDriverVersion As Integer
dmSize As Integer
dmDriverExtra As Integer
dmFields As Long
dmOrientation As Integer
dmPaperSize As Integer
dmPaperlength As Integer
dmPaperWidth As Integer
dmScale As Integer
dmCopies As Integer
dmDefaultSource As Integer
dmPrintQuality As Integer
dmColor As Integer
dmDuplex As Integer
dmResolution As Integer
dmTTOption As Integer
dmCollate As Integer
dmFormName As String * 16
dmPad As Long
dmBits As Long
dmPW As Long
dmDFI As Long
dmDRr As Long
End Type
rikiamando la funzione ovviamente...nn funziona in mde!!!
Secondo voi c''è un modo equivalente..ovvero senza passare per la struttutra del report..impsotare le caratteristiche della stampante magari tramite oggetto printer?
A me oggetto pritner nn va ...se attribuisco a pritner.paperbin il numero relativo al cassetto che per me è 259 dà errore..e se 1,2,3 nn funziona....prende impostazioni predefinite.
Grazie
Vanessa
...ho letto che la stessa cosa si può impostare (in runtime) con l'oggetto printer...
..
ma il mio problema è dovere attribuire a
pritner.paperbin valori > di 256 (la stampante vede 257,258,259) i 3 cassetti e nn ne vuole sapere dei middle, upper e lower..insomma
qcuno può aiutarmi o devo tenermi tutto il codice e lavorare solo con mbdb?
Grazie
Vanessa
P.S.: riporto il codice d prova del settaggio stampante (funzionano tutti tranne il paper bin)
With Reports(0).Printer
.TopMargin = 1440
.BottomMargin = 1440
.LeftMargin = 1440
.RightMargin = 1440
.ColumnSpacing = 360
.RowSpacing = 360
.ColorMode = acPRCMColor
.DataOnly = False
.DefaultSize = False
.ItemSizeHeight = 2880
.ItemSizeWidth = 2880
.ItemLayout = acPRVerticalColumnLayout
.ItemsAcross = 6
.Copies = 1
.Orientation = acPRORLandscape
.Duplex = acPRDPVertical
.PaperBin = acPRBNFormSource lo vorrei 257,258,259
.PaperSize = acPRPSA4
.PrintQuality = acPRPQMedium
End With
up
Hai provato creando una macro in access??
Comunque, queste sono le costanti utlizzate dalla proprietà PaperBin:
acPRBNAuto
acPRBNCassette
acPRBNEnvelope
acPRBNEnvManual
acPRBNFormSource
acPRBNLargeCapacity
acPRBNLargeFmt
acPRBNLower
acPRBNManual
acPRBNMiddle
acPRBNSmallFmt
acPRBNTractor
acPRBNUpper
Ciao
..lo so ..e le ho provate...ma so anke che usando le costanti nn ne vuols apere... ma a lui va bene anke una costante numerica ...il probema era avere quella >256..
..
se qcuno potesse aiutarni!
Vanessa
Permessi di invio
Rispondi quotando