Newsgroup: it.comp.appl.access
Titolo: Windows 2000 - XP - Formato carta

Buongiorno a tutti, scrivo per la prima volta a questo newsgroup per un
problema emerso con i sistemi operativi in oggetto.
Cerco di spiegarmi:
come tutti avrete notato con l'avvento dei predetti sistemi operativi nelle
opzioni della stampante manca il formato "dimensioni personalizzate" che
permettava di impostare un formato di carta diverso da quelli standard, il
problema sorge nel gestire i moduli continui un pò più lunghi del formato A4
e quindi vorrei sapere se qualcuno ha avuto questo problema ed eventualmente
come l'ha risolto.
Grazie
Saverio Milella

 ha scritto nel messaggio
news:c3s3vi$i0l$1...@lacerta.tiscalinet.it...

Fai una ricerca con google in questo gruppo, l'argomento è già stato
trattato...
Ciao.
-- 
Sergio MAZZA

 ha scritto nel messaggio
news:jBj8c.119378$O31.5...@news4.tin.it...

Ti ringrazio ma ho trovato solo molti rimandi a PrtDevMode (non e' che sia
proprio agevole)  e pochi esempi frammentari di codice (uso access 2000)
Ciao

 ha scritto nel messaggio
news:c3snfv$6c4$1...@lacerta.tiscalinet.it...

Io ringrazierei Bill del fatto che l'ha inserita...
Ciao.
--
Sergio MAZZA

 Ho usato il codice che ti allego e sembra funzionare, ma alla fine mi
rimane il report aperto in modalità struttura
Modulo Imposta pagina
Type str_DEVMODE
    RGB As String * 94
End Type
Type type_DEVMODE
    strNomeDispositivo As String * 16
    intVersioneSpec As Integer
    intVersioneDriver As Integer
    intDimensione As Integer
    intDriverExtra As Integer
    lngCampi As Long
    intOrientamento As Integer
    intDimensFoglio As Integer
    intLunghezzaFoglio As Integer
    intLarghezzaFoglio As Integer
    intScala As Integer
    intCopie As Integer
    intOriginePredef As Integer
    intQualitàStampa As Integer
    intColore As Integer
    intDuplex As Integer
    intRisoluzione As Integer
    intOpzioneTT As Integer
    intFascicola As Integer
    strNomeMaschera As String * 16
    lngTitolo As Long
    lngBit As Long
    lngPW As Long
    lngPH As Long
    lngDFI As Long
    lngDFr As Long
End Type
Sub ImpostaPagina(rptNome As String)
    Dim StringaPer As str_DEVMODE
    Dim DM As type_DEVMODE
    Dim strModalitàExtraPer As String
    Dim rpt As report
    Dim Lungh As Integer
    Dim Largh As Integer
    Dim orient As String
    DoCmd.OpenReport rptNome, acDesign
    Set rpt = Reports(rptNome)
    Lungh = xx
    Largh = xx
    orient = 1
           strModalitàExtraPer = rpt.PrtDevMode
           StringaPer.RGB = strModalitàExtraPer
           LSet DM = StringaPer
            DM.lngCampi = DM.lngCampi Or DM.intDimensFoglio Or
DM.intLunghezzaFoglio _
                Or DM.intLarghezzaFoglio
            DM.intDimensFoglio = 256
            DM.intOrientamento = orient
            DM.intLunghezzaFoglio = Lungh * 256
            DM.intLarghezzaFoglio = Largh * 256
            LSet StringaPer = DM
            Mid(strModalitàExtraPer, 1, 94) = StringaPer.RGB
            rpt.PrtDevMode = strModalitàExtraPer
End Sub
Dalla maschera
Private Sub fattura_Click()
On Error GoTo Err_fattura_Click
    Dim stDocName As String
    ImpostaPagina ("fattura1")
    stDocName = "fattura1"
    DoCmd.OpenReport stDocName, acPreview
Exit_fattura_Click:
    Exit Sub
Err_fattura_Click:
    MsgBox err.Description
    Resume Exit_fattura_Click
End Sub
Ciao
Saverio Milella

 ha scritto nel messaggio
news:c40kiq$57f$1...@lacerta.tiscalinet.it...

Inserisci: DoCmd.Close acReport, rptNome, acSaveYes prima dell'End Sub della
Sub ImpostaPagina...
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:c425nq$vfr$1...@lacerta.tiscalinet.it...

Meglio l'utilizzo di: Application.Echo, il DoCmd, dice l'help, è rimasto per
compatibilità...
Ciao.
-- 
Sergio MAZZA