Risultati da 1 a 6 di 6

Discussione: stampa grafico



  1. #1
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2

    stampa grafico

    Salve , voglio fare la stampa del grafico e dal registratore macro mi è uscito questo codice che mi sembra eccessivo... in più mi va in debug sulla prima linea. errore di Run Time
    impossibile trovare l'emento corrispondente al nome specificato

    Il Foglio si chiama Foglio2(MODULO) e questo nome ("Grafico 5") non so da dove sia uscito.


    Codice: 
    Sub Stampa_grafico()
    
    'fatta con il registratore macro
    
    ' StampaGrafico Macro
    '
    '
        ActiveSheet.ChartObjects("Grafico 5").Activate
        Application.PrintCommunication = False
        With ActiveChart.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = Application.InchesToPoints(0.7)
            .RightMargin = Application.InchesToPoints(0.7)
            .TopMargin = Application.InchesToPoints(0.75)
            .BottomMargin = Application.InchesToPoints(0.75)
            .HeaderMargin = Application.InchesToPoints(0.3)
            .FooterMargin = Application.InchesToPoints(0.3)
            .ChartSize = xlScreenSize
            .PrintQuality = 600
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlLandscape
            .Draft = False
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
            .PaperSize = xlPaperLetter
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = 100
        End With
        Application.PrintCommunication = True
        Application.PrintCommunication = False
        With ActiveChart.PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
            .LeftMargin = Application.InchesToPoints(0.7)
            .RightMargin = Application.InchesToPoints(0.7)
            .TopMargin = Application.InchesToPoints(0.75)
            .BottomMargin = Application.InchesToPoints(0.75)
            .HeaderMargin = Application.InchesToPoints(0.3)
            .FooterMargin = Application.InchesToPoints(0.3)
            .ChartSize = xlScreenSize
            .PrintQuality = 600
            .CenterHorizontally = False
            .CenterVertically = False
            .Orientation = xlLandscape
            .Draft = False
            .OddAndEvenPagesHeaderFooter = False
            .DifferentFirstPageHeaderFooter = False
            .EvenPage.LeftHeader.Text = ""
            .EvenPage.CenterHeader.Text = ""
            .EvenPage.RightHeader.Text = ""
            .EvenPage.LeftFooter.Text = ""
            .EvenPage.CenterFooter.Text = ""
            .EvenPage.RightFooter.Text = ""
            .FirstPage.LeftHeader.Text = ""
            .FirstPage.CenterHeader.Text = ""
            .FirstPage.RightHeader.Text = ""
            .FirstPage.LeftFooter.Text = ""
            .FirstPage.CenterFooter.Text = ""
            .FirstPage.RightFooter.Text = ""
            .PaperSize = xlPaperA4
            .FirstPageNumber = xlAutomatic
            .BlackAndWhite = False
            .Zoom = 100
        End With
        Application.PrintCommunication = True
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
    End Sub

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    La prima riga ti va in debug perché manca la e in Atcivate
    Comunque puoi eliminare tutto e lasciare solo:
    Codice: 
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False

  3. #3
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2
    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    La prima riga ti va in debug perché manca la e in Atcivate
    Comunque puoi eliminare tutto e lasciare solo:
    Codice: 
     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
    Si Rubik, ma il problema è che avendo su uno stesso foglio 12 grafici (uno per ogni mese), anche dando un range di stampa lui mi stampa sempre e solo il grafico di Gennaio. Esiste una macro per ogni mese.
    Ho visto che ogni grafico ha un suo proprio nome (selezionato il grafico, Strumenti grafico, Layout, tutto a destra in alto) e volevo indirizzare la macro di stampa, chiamata dal mese scelto, al proprio grafico.

    Questa è il codice per Gennaio
    il nome del grafico è : Gennaio
    Codice: 
    Sub stampaGraficoGennaio()
    '
    ' stampaGraficoGennaio Macro
    '
    
    '
        Sheets("grafici").Select
        Range("A1:O39").Select
        Selection.PrintOut from:=1, to:=1, Copies:=1
        Sheets("gennaio").Select
        Range("AD10").Select
    End Sub

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    prova cosi
    Codice: 
    Sub Stampa
    
    Dim Ch As ChartObject
    Dim i As Integer
        
    For i = 1 To 12
        Set Ch = ActiveSheet.ChartObjects(i)
        Ch.Chart.PrintOut
    Next
    Set Ch =nothing
    
    End Sub

  5. #5
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2
    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    prova cosi
    Codice: 
    Sub Stampa
    
    Dim Ch As ChartObject
    Dim i As Integer
        
    For i = 1 To 12
        Set Ch = ActiveSheet.ChartObjects(i)
        Ch.Chart.PrintOut
    Next
    Set Ch =nothing
    
    End Sub
    non va, credo che se alla variabile i non si da che valore deve prendere il cico FOR lei rimanga su 1
    credo che bisogna lavorare sui nomi grafici che li ho chiamati secondo il mese... Gennaio Febbraio ...etc...etc

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979
    Prova così:
    Codice: 
    Sub Stampa()
    
    
    Dim Ch As ChartObject
    Dim i As Integer
    Dim Mesi()
        
    Mesi = Array("Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno", "Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre")
    
    
    For i = 0 To 11
        Set Ch = ActiveSheet.ChartObjects(Mesi(i))
        Ch.Chart.PrintOut
    Next
    Set Ch = Nothing
    
    
    End Sub

Discussioni Simili

  1. [Risolto] stampa area di stampa di un foglio diverso
    Di ninnago nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 13/04/17, 11:42
  2. [Risolto] Stampa pdf
    Di Chiarpato nel forum Domande su Excel VBA e MACRO
    Risposte: 25
    Ultimo Messaggio: 02/01/17, 13:12
  3. Stampa pdf
    Di sergiogranero nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 04/12/16, 10:36
  4. Anteprima di Stampa e Stampa
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 28/06/16, 01:24
  5. Stampa del grafico
    Di Ghibly69 nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 15/02/16, 22:48

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •