You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] Excel 2016 stampa più fogli-Rispondi a: [RISOLTO] Excel 2016 stampa più fogli
Rispondi a: [RISOLTO] Excel 2016 stampa più fogli2018-03-16T13:17:47+01: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: 3

    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.