Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 15
  1. #1

    [Access] impostare cassetto stampante

    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

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

  3. #3
    ..risolto..
    ..
    solo la dikiarazione del tipo andava nel modulo...

    VaneX

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

  5. #5
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,465
    Per VBA, il forum più adatto è questo.

    In seguito, scrivi qui le domande inerenti a Visual Basic (e affini).

    Questa discussione la posto io.

    Ciao!
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

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

  7. #7

  8. #8
    Hai provato creando una macro in access??

  9. #9
    Comunque, queste sono le costanti utlizzate dalla proprietà PaperBin:

    acPRBNAuto
    acPRBNCassette
    acPRBNEnvelope
    acPRBNEnvManual
    acPRBNFormSource
    acPRBNLargeCapacity
    acPRBNLargeFmt
    acPRBNLower
    acPRBNManual
    acPRBNMiddle
    acPRBNSmallFmt
    acPRBNTractor
    acPRBNUpper


    Ciao


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

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.