Anonimo
Anonimo ha chiesto in Computer e InternetProgrammazione e Design · 10 anni fa

CODICE VISUAL BASIC STAMPA IN EXCEL?

Ciao a tutti. Ho creato un sistema di calcolo in un foglio excel:siccome vorrei che la funzione stampa fosse legata non al normale processo "File - Stampa" ma vorrei che fosse legata al clic di un bottone. Ho creato il bottone e apro il Visual Basic. Che stringa di comando devo inserire per far stampare questo benedetto file?? Stampa semplicissima...

Grazie a tutti

Aggiornamento:

maurizio: io inserisco nel bottone questa stringa (considera che deve stampare al click:

Private Sub CommandButton1_Click()

Sub StampaFoglio()

'salvo l'area di stampa

AreaDiStampaCorrente = ActiveSheet.PageSetup.PrintArea

'imposto le celle da stampare

CelleDaStampare = "A1:E9"

ActiveSheet.PageSetup.PrintArea = CelleDaStampare

ActiveSheet.PrintOut

'reimposto l'area di stampa iniziale

ActiveSheet.PageSetup.PrintArea = AreaDiStampaCorrente

End Sub

End Sub

Mi dice che manca un EndSub.. dove sbaglio?

1 risposta

Classificazione
  • 10 anni fa
    Risposta preferita

    Assegna al pulsante questa funzione, puoi definire le celle da stampare come indicato oppure stampare l'area di stampa predefinita, in tal caso invede di:

    ActiveSheet.PageSetup.PrintArea = CelleDaStampare

    scrivi:

    ActiveSheet.PageSetup.PrintArea = AreaDiStampaCorrente

    Sub StampaFoglio()

    'salvo l'area di stampa

    AreaDiStampaCorrente = ActiveSheet.PageSetup.PrintArea

    'imposto le celle da stampare

    CelleDaStampare = "A1:E9"

    ActiveSheet.PageSetup.PrintArea = CelleDaStampare

    ActiveSheet.PrintOut

    'reimposto l'area di stampa iniziale

    ActiveSheet.PageSetup.PrintArea = AreaDiStampaCorrente

    End Sub

    @AGGIUNTA

    La chiamata della sub nel pulsante va fatta così:

    Private Sub CommandButton1_Click()

    StampaFoglio()

    End Sub

    Tu invece hai copiato all'interno della sub del pulsante, la sub che ti ho scritto e quindi Excel

    non capisce nulla. In pratica quando apri una sub poi devi chiuderla

    Sub Mia1

    ...codice

    End Sub

    Sub Tua2

    .... codice

    End Sub

    Non puoi scrivere due sub

    Sub Mia '>> questa va chiusa prima di aprire l'altra

    Sub Tua

    End Sub

    End Sub

Altre domande? Fai una domanda e ottieni le risposte che cerchi.