Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto su proprietà saved

 
          Ho un grosso dilemma.
Vi posto una parte del mio source ove apro un foglio di excel, lo modifico,
lo stampo e poi lo chiudo.
Il grosso problema è che non voglio permettere il salvataggio del foglio
modificato.
Le ho già provate tutte.
' Creo l'applicazione excel
    Set xlApp = New Excel.Application
 
    ' Apro il file master .xls
    Workbooks.Open (App.Path + "\Stampa.xls")
 
 ' compilo alcune celle
.....................
..................
..................
 
    ' Non permette di salvare le modifiche sul foglio di lavoro
    ActiveWorkbook.Saved = False
    ' Rendo visibile il foglio
    xlApp.Visible = True
 
    ' Preview della stampa foglio excel
    ' xlApp.ActiveWorkbook.Sheets(1).PrintPreview
    ' Stampo la pagina di excel completa
    xlApp.ActiveWorkbook.Sheets(1).PrintOut
 
    ' Chiudo l'oggetto Excel
    xlApp.Quit
    ' Distruggo l'oggetto Excel
    Set xlApp = Nothing
Non riesco in nessun modo a capire dove mettere o come mettere questa
caspita di proprietà Saved che dovrebbe non richiedere il salvataggio del
foglio e chiudere il tutto.
Grazie Ely
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Le ho già provate tutte.
    ' Stampo la pagina di excel completa
    xlApp.ActiveWorkbook.Sheets(1).PrintOut
    xlApp.ActiveWorkbook.Saved=True
    ' Chiudo l'oggetto Excel
    xlApp.Quit
Tutto qui...
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

 ha scritto:

Perfetto, grazie mille. Per quanto riguarda l'opzione di negazione del
salvataggio è tutto ok, mi rimane solo più ancora un piccolo problema.
Invece di mandare la stampa con .PrintOut voglio mandare l'anteprima di
stampa e lo faccio in questo modo
    ' Rendo visibile il foglio
    xlApp.Visible = True
 
    ' Preview della stampa foglio excel
    xlApp.ActiveWorkbook.Sheets(1).PrintPreview
    ' Non permetto il salvataggio del foglio excel modificato
    xlApp.ActiveWorkbook.Saved = True
 
    ' Chiudo l'oggetto Excel
    xlApp.Quit
    ' Distruggo l'oggetto Excel
    Set xlApp = Nothing
Quindi mi apre l'anteprima in modo corretto e finquì tutto ok.
Il problema si presenta dopoi la prima volta che invio l'anteprima premo poi
il pulsante Chiudi di excel e poi riapro l'anteprima e a quel punto mi dà
questo errore:
errore di run-time 91
Variabile oggetto o variabile del blocco With non impostata
ed in fase di debug punta la riga di anteprima di stampa.
Cosa può essere?
Molte grazie Ely


elisa.verra wrote:

Non sono riuscito a replicare il tuo problema, nel senso che il codice che 
hai indicato funziona perfettamente anche se viene chiamato più volte di 
seguito.
Prova ad eseguire step-by-step il tuo codice e verificare che sia 
ActiveWorkbook e Sheets(1) siano valorizzati correttamente.
ecco il mio banale test:
Dim myapp As Excel.Application
Private Sub Command1_Click()
    Set myapp = New Excel.Application
    myapp.Visible = True
    myapp.Workbooks.Add
    myapp.ActiveWorkbook.Sheets(1).Range("A1") = "Prova"
    myapp.ActiveWorkbook.Sheets(1).PrintPreview
    myapp.ActiveWorkbook.Saved = True
    myapp.Quit
    Set myapp = Nothing
End Sub
Anche cliccando più volte di seguito sul pulsante, non viene generato 
alcun errore.
ciao!
