You are here:---Rispondi a: [RISOLTO] Excel 2016 stampa più fogli
Rispondi a: [RISOLTO] Excel 2016 stampa più fogli2018-03-16T13:17:47+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Excel 2016 stampa più fogli Rispondi a: [RISOLTO] Excel 2016 stampa più fogli

AvatarPacifico
Partecipante
    Post totali: 2

    Gent.mo by Salv,

    ringrazio della gentilezza e tempestività.
    Ho provato a modificare il codice:
    Set rng = .Range(“$B$4:$B$37”)
    ‘         For Each c In rng
    ‘                 ThisWorkbook.Worksheets(c.Value).PrintOut Copies:=1, Collate:=True
    ‘         Next
    ActiveSheet.PageSetup.PaperSize = xlPaperA4
    ActiveSheet.PageSetup.Zoom = 50
    ActiveSheet.PageSetup.FitToPagesWide = 1
    ActiveSheet.PageSetup.FitToPagesTall = 1
    For Each c In rng
    ThisWorkbook.Worksheets(c.Value).PrintOut Copies:=1, Collate:=True
    Next
    End With
    con lo stesso risultato.
    Saluto.

    Domenico.

    P.S.
    mi scuso, non sono riuscito ad inviare il file ed invio il Link dove si può prelevare.
    http://www.mediafire.com/file/eg3d6da1n9v9yyd/Prova_stampa_A.xlsm
    Ringrazio.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi