Condividi:        

stampa di tutti i fogli di una cartella sotto condizioni

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

stampa di tutti i fogli di una cartella sotto condizioni

Postdi luca62 » 09/03/20 10:41

Salve a tutti, sto cercando di fare questo: creare una macro per una cartella di lavoro , che mi stampi l'area di stampa di tutti i fogli attivi. Ad esempio ho foglio 1; foglio 2....foglio n non vuoti e voglio stampare su uno stesso foglio (o su più fogli, se sono troppi):
Ad esempio sul foglio stampato avrò partendo dall'alto , l'area di stampa del foglo1, poi l'area di stampa del foglio 2 etc...
è possibile?
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Sponsor
 

Re: stampa di tutti i fogli di una cartella sotto condizioni

Postdi Anthony47 » 09/03/20 15:08

Se ho capito bene, la risposta e' che non si puo' fare in modo diretto. Bisognerebbe creare un foglio di servizio con in sequenza tutte le aree di stampa di tutti i fogli, e poi stampare il contenuto di questo foglio.
Ma il tutto va facilmente in crisi se qualche area di stampa e' piu' larga delle altre.

Se alleghi un file di prova, dove sono presenti le varie condizioni che hai mensionato, allora possiamo provarci; che sia utile non so anticiparlo...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: stampa di tutti i fogli di una cartella sotto condizioni

Postdi luca62 » 09/03/20 16:12

ottimo suggerimento! sarebbe l'ideale creare un foglio riepilogo ,allora ho provato a creare un foglio riepilogo con l'aiuto del registratore macro:
Sub riepilogo()
'
' riepilogo Macro
'

'
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("BASE").Select
Range("Y12:AO23").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("riepilogo").Select
Range("A16").Select
ActiveSheet.Paste
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("+5150T+5200P+9010P ").Select
ActiveWindow.SmallScroll Down:=3
Range("Y6:AK10").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("riepilogo").Select
Range("A23").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
End Sub

che mi funziona,il problema è che il nome del foglio dove vado a prendere i dati da inserire nel foglio riepilogo, mi cambia, e dovrei dire :
copia l'intervallo ("Y12:AO23") del primo foglio "BASE" e mettilo sul foglio "Riepilogo" a partire da A2, poi accodaci, l intervallo (("Y6:AK10") del secondo foglio a partire da A16, poi lo stesso intervallo ("Y6:AK10")
del 3^ foglio a partire da A22 ,poi accodaci l'intervallo del 4^ foglio ("Y6:AK10") a partire da A 28 e così via per tutti i fogli attivi del foglio, meno il foglio riepilogo sul quale vado a scrivere.
IN pratica , a parte la prima "copiatura" dal foglio chiamato base (e sarà sempre chiamato base) dell'intervallo "y12;AO23" devo copiare per i fogli da 2 a . n lo stesso intervallo (Y6;Ak10) accodandoli via via partendo da A16, A22,A28......Ai+6. spero di averti fatto capire!!!
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Re: stampa di tutti i fogli di una cartella sotto condizioni

Postdi Anthony47 » 10/03/20 02:01

Potresti provare con questo codice:
Codice: Seleziona tutto
Sub Riep()
Dim I As Long, shCnt As Long
'
Sheets("riepilogo").Range("A2").Resize(1000, 100).ClearContents
For I = 1 To Worksheets.Count
    If UCase(Sheets(I).Name) <> "RIEPILOGO" Then
        If UCase(Sheets(I).Name) = "BASE" Then
            Sheets(I).Range("Y12:AO23").Copy Destination:=Sheets("riepilogo").Range("A2")
        Else
            Sheets(I).Range("Y6:AK10").Copy Destination:=Sheets("riepilogo").Range("A16").Offset(shCnt * 6, 0)
            shCnt = shCnt + 1
        End If
    End If
End If
Sheets("riepilogo").Select
End Sub

Fai sapere…
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: stampa di tutti i fogli di una cartella sotto condizioni

Postdi luca62 » 10/03/20 08:48

mi da errore End if senza blocco if (evidenziato l'ultimo End if)
luca62 office2007 window7
luca62
Utente Senior
 
Post: 173
Iscritto il: 23/12/12 14:54

Re: stampa di tutti i fogli di una cartella sotto condizioni

Postdi wallace&gromit » 10/03/20 09:57

Inserisci Next I al posto dell'ultimo End if... e segnati uno dei rarissimi refusi di Anthony :lol:
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: stampa di tutti i fogli di una cartella sotto condizioni

Postdi Anthony47 » 10/03/20 13:22

Inserisci Next I al posto dell'ultimo End if
Eh gia'... :oops: :oops:
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "stampa di tutti i fogli di una cartella sotto condizioni":


Chi c’è in linea

Visitano il forum: raimea e 79 ospiti