Newsgroup: it.comp.appl.access
Titolo: Maschera/Select Case/trasferire in Excel

Ho scopiazzato questo codice da Nortwind.
Vorrei in una maschera dare l'opzione di stampare i report  o trasferire i
dati in
excel.
Sono riuscito solo nella prima operazione :(
chi mi da una mano ?
Sub StampaReport(PrintMode As Integer)
    ' Routine utilizzata nelle routine Sub Anteprima_Click e Stampa_Click.
    ' Dal gruppo di opzioni ReportDaStampare è possibile selezionare
Anteprima e Stampa report.
    ' Quindi chiude la maschera Finestra Report vendite.
    Select Case Me!ReportDaStampare
        Case 1
            DoCmd.OpenReport "Tutto il personale", PrintMode
        Case 2
            DoCmd.OpenReport "Personale I-III", PrintMode
        Case 3
            DoCmd.OpenReport "Personale IV-VIII", PrintMode
        Case 4
            DoCmd.OpenReport "Personale a tempo Indeterminato", PrintMode
       Case 5
            DoCmd.OpenReport "Personale a tempo Determinato", PrintMode
       Case 5
            DoCmd.OpenReport "Coordinatori", PrintMode
       Case 6
            DoCmd.OpenReport "Indennità Annua", PrintMode
       Case 7
            DoCmd.OpenReport "Liquidazione", PrintMode
      Case 8
            DoCmd.OpenReport "Tredicesima", PrintMode
    End Select
End Sub
Private Sub Stampa_Click()
' Stampa il report selezionato. La routine utilizza la subroutine
' StampaReport definita nella sezione (generale) di questo modulo.
    StampaReport acNormal
End Sub
 Sub PerExcel()
Select Case Me!ReportDaStampare
        Case 1
            DoCmd.TransferSpreadsheet "Tutto il personale"
        Case 2
            DoCmd.OpenReport "Personale I-III"
        Case 3
            DoCmd.OpenReport "Personale IV-VIII"
        Case 4
            DoCmd.OpenReport "Personale a tempo Indeterminato"
       Case 5
            DoCmd.OpenReport "Personale a tempo Determinato"
       Case 5
            DoCmd.OpenReport "Coordinatori"
       Case 6
            DoCmd.OpenReport "Indennità Annua"
       Case 7
            DoCmd.OpenReport "Liquidazione"
      Case 8
            DoCmd.OpenReport "Tredicesima"
             End Select
End Sub
Private Sub Comando29_Click() ' è il pulsante di comando sulla maschera con
il quale vorrei trasferire il report in Excel
End Sub
--
------

 Sono riuscito solo nella prima operazione
questo e' comando da utilizzare 
DoCmd.OutputTo acOutputReport, "NomedelReport", acFormatXLS,
"Nomedelfile.xls", True 
sostituire i nomi
"Nomedelreport"
ed eventualmente
"Nomedelfile.xls"
--
a.cara 
Togli qualcosa dall'email

 ha scritto nel messaggio
news:3DDB9161...@blunet.it...


funziona (grazie!),soltanto che dopo aver creato il file excel, quando vado
a salvarlo
, mi  chiede  se voglio convertirlo in excel 10 visto
che il file è in formato excel 5.
Posso evitare questo passaggio ?
come faccio a dirgli di creare direttamente un file excel 10 ?
Altro problema :
anche se seleziono il pulsante di comando Perexcel, il record viene stampato
lo stesso ,
posto tutto il codice  :
Sub StampaReport(PrintMode As Integer)
    Select Case Me!ReportDaStampare
        Case 1
            DoCmd.OpenReport "Tutto il personale", PrintMode
        Case 2
            DoCmd.OpenReport "Personale I-III", PrintMode
    End Select
End Sub
Private Sub Stampa_Click()
    StampaReport acNormal
End Sub
   Sub PerExcel()
   Select Case Me!ReportDaStampare
   Case 1
   DoCmd.OutputTo acOutputReport, "Tutto il personale", acFormatXLS,
"1.xls", True
   Case 2
   DoCmd.OutputTo acOutputReport, "Personale I-III", acFormatXLS, "2.xls",
             End Select
End Sub
Private Sub Comando29_Click() ' è il pulsante di comando sulla maschera con
il quale vorrei trasferire il report in Excel
PerExcel
End Sub