Risultati da 1 a 8 di 8

Discussione: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio



  1. #1
    L'avatar di Nicola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Età
    28
    Messaggi
    6
    Versione Office
    Office 2010/13
    Utile ricevuti
    0
    Utile dati
    0

    Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Buongiorno a tutti.
    Il problema è il seguente: devo modificare una macro già esistente (cher trasforma i dati da riga in colonna, li stampa e salva) in modo che mi stampi 4 copie dell'area di stampa selezionata (che deve rimanere invariata) in un foglio A4 in modo che ci sia una copia dei dati in ogni quarto del foglio (quindi due copie sopra e due copie sotto su un foglio orientato verticalmente).

    La macro che utilizzo ora è la seguente:

    Codice: 
     
    Sub Stampa()
    r = ActiveCell.Row
    Range("A" & r & ":I" & r).Copy
    Range("L1").PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , True
    ActiveSheet.PageSetup.PrintArea = "$L$1:$L$9"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""
    End Sub
    Come posso sistemarla?

    Grazie mille.
    Ultima modifica fatta da:Rubik72; 22/09/16 alle 10:53

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2003
    Versione Office
    Excel 2013
    Utile ricevuti
    745
    Utile dati
    705

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Ciao Nicola
    ti ricordo che, per una migliore lettura del forum, di inserire il codice nei previsti TAG (questa volta l'ho fatto io)
    Per il tuo problema, è meglio se alleghi un file di esempio senza dati sensibili.

  3. #3
    L'avatar di Nicola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Età
    28
    Messaggi
    6
    Versione Office
    Office 2010/13
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Grazie!
    Ecco il file che utilizzo per le prove.
    File Allegati File Allegati

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2003
    Versione Office
    Excel 2013
    Utile ricevuti
    745
    Utile dati
    705

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Il File ha 2 fogli (DEPOSITO - DOCUMENTO). Su quale foglio deve intervenire la macro?

  5. #5
    L'avatar di Nicola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Età
    28
    Messaggi
    6
    Versione Office
    Office 2010/13
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Sul primo, il foglio DEPOSITO è quello che contiene i dati della macro che voglio modificare.

  6. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2003
    Versione Office
    Excel 2013
    Utile ricevuti
    745
    Utile dati
    705

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Se ho capito bene, prova così:
    Codice: 
    Sub Stampa()
    Dim R As Long
    
    
    R = ActiveCell.Row
    Range("A" & R & ":I" & R).Copy
    Range("L1,Q1,L26,Q26").PasteSpecial xlPasteValuesAndNumberFormats, xlPasteSpecialOperationNone, , True
    ActiveSheet.PageSetup.PrintArea = "$L$1:$Q$48"
    ActiveWindow.SelectedSheets.PrintOut _
        Copies:=1, _
        Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.PageSetup.PrintArea = ""
    End Sub

  7. I seguenti utenti hanno dato un "Utile"


  8. #7
    L'avatar di Nicola
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Forlì
    Età
    28
    Messaggi
    6
    Versione Office
    Office 2010/13
    Utile ricevuti
    0
    Utile dati
    0

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Perfetto!!!!

    Grazie Mille!!!!!

  9. #8

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2003
    Versione Office
    Excel 2013
    Utile ricevuti
    745
    Utile dati
    705

    Re: Macro di Stampa - Da 1 a 4 Copie sullo stesso foglio

    Grazie del tuo riscontro. Torna quando vuoi.

Discussioni Simili

  1. [Risolto] Spostarsi in verticale nello stesso foglio
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 24/12/16, 16:58
  2. Risposte: 3
    Ultimo Messaggio: 14/11/16, 21:00
  3. Stampa stessa riga di ogni foglio su unico foglio a4
    Di fefemusic nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 23/09/16, 18:44
  4. stampa area di stampa di un foglio diverso
    Di ninnago nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 22/03/16, 19:56
  5. Da foglio excel a APP sullo smarphone
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 13/01/16, 13:56

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
  •