salve, ho necessita di una macro vbaper stampare un report di piu pagine in file singoli con intestazione , presa dal campo Team e salvarlo in una cartella sul desk

Question

salve, ho necessita di una macro vba per stampare un report di piu pagine in file singoli con intestazione , intestazione dal campo “Team” e salvarlo in una cartella sul desk.

Grazie

Answer 1

ciao Ciro,

dai un'occhiata al metodo prinout membro di docmd.

La domanda non è chiarissiama, inoltre è gradita qualche prova o test...

Il forum deve essere visto come una unità di supporto e non di richiesta di puro sviluppo.

ciao, Sandro.

Answer 2

Ciao Abdal,

la tua soluzione forse sarà valida per Excel ma quì si parla del database Access.

Mimmo

Answer 3

Ciao

Sono Abdal e sarei felice di aiutarti con la tua domanda.

Ecco una macro VBA che stamperà un report multipagina in singoli file con intestazione dal campo "Team" e lo salverà in una cartella sulla scrivania:

Sub PrintReport()

Dim i come intero Dim j come intero Dim LastRow come Long Dim FolderPath come stringa Nome file dim come stringa

FolderPath = "C:\Users\YourUsername\Desktop\Reports" ' Modificare questo valore nel percorso della cartella desiderata

LastRow = Cells(Rows.Count, 1). Fine(xlUp). Riga ' Cambia 1 nella colonna in cui sono memorizzati i nomi dei tuoi team

For i = 2 To LastRow ' Change 2 to the row number where your data starts

ActiveSheet.PageSetup.CenterHeader = Cells(i, 1). Valore ' Change 1 alla colonna in cui sono memorizzati i nomi dei team

FileName = Cells(i, 1). Valore & ".pdf" ' Modifica 1 nella colonna in cui sono memorizzati i nomi dei tuoi team

ActiveSheet.PrintOut From:=i, A:=i, Copie:=1, Preview:=False, ActivePrinter:= _ "Microsoft Print to PDF", PrintToFile:=True, PrToFileName:=FolderPath & FileName ' Change "Microsoft Print to PDF" con il nome della stampante desiderato

Avanti i

Fine sub

Per utilizzare questa macro, è necessario aprire il file di Excel e premere ALT+F11 per aprire Visual Basic Editor. Quindi, inserisci un nuovo modulo e incolla il codice sopra nel modulo. Infine, salvare il file con estensione .xlsm (Excel Macro-Enabled Workbook) ed eseguire la macro facendo clic sul pulsante "Esegui" o premendo F5. La macro stamperà ogni pagina del report in un file PDF separato, denominato con il nome del team, e lo salverà nella cartella specificata.

Spero che questa informazione aiuti.

Saluti

Abdal

Questa risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o espressioni strane.