..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