› Sviluppare funzionalita su Microsoft Office con VBA › Macro salva in PDF e Macro stampa della sola area di stampa di un foglio Excel
-
AutoreArticoli
-
Buongiorno a tutti... sono neofita e con umiltà chiedo...
esiste la possibilità di realizzare una macro che possa salvare in PDF solamente l' area di stampa selezionata e non l' intero foglio ?
oltre questa scelta ovviamente la possibilità di stampare appunto, attraverso un altra macro, la sola area di stampa .... grazie a chiunque voglia darmi una mano...
Ciao @jaeger!
Per Area di stampa --> https://www.excelvba.it/Forum/story/Visual_Basic_for_Applications/Area_di_stampa.html
Per Salva in PDF --> #28321
Ciao PMC77 grazie infinite della risposta... vado a controllare subito..... che cosa è #28321 ? scusa sono ignorante lo so....
@jaeger è l'identificativo dell'argomento
Quindi se nel campo di ricerca del forum inserisci il numero che ti ho dato, vedrai l'argomento già trattato in passato
Buona giornata!
Paolo
Grazie Paolo... allora ho visto. caricato la macro che ti inserisco sotto e funziona parzialmente.. non riesco a capire dove inserire i dati dell' area che intendo stampare che sono:
orizzontali da B11 fino a AM11
verticali da B47 fino a AM47
`Sub saveasPDF() Dim i As Integer Dim b As Integer Dim a As Integer Dim Nome As String Dim percorso As String On Error Resume Next percorso = "C:\Users\Tizio\Desktop\Nuova cartella\" <--- questo poi va modificato ovviamente Dim LR As Long Application.EnableEvents = False i = 1 b = 2 With Sheets("Gennaio") <----questo è il foglio solo di gennaio poi ci sono anche gli altri LR = .Cells(.Rows.Count, "M").End(xlUp).Row For a = 37 To LR Step 37 Nome = .Range("n" & b) .PageSetup.PrintArea = ("A" & i & ":U" & a) .ExportAsFixedFormat xlTypePDF, Filename:=percorso & Nome & ".pdf", OpenAfterPublish:=True i = i + 37 b = b + 37 Next End With MsgBox "Elenco dei chiedenti visita salvato correttamente", vbInformation + vbOKOnly, "TABELLE PRESENZE" Application.EnableEvents = True End Sub`
Peraltro se fosse possibile stampare addirittura due aree ben definite sare perfetto... il problema è che avendo poca conoscenza del vba non riesco a capire come inserire gli spazi da stampare... in pratica.
la prima area: orizzontale da "B11" a "AM11" verticale da "B47 a "AM47"
la seconda: orizzontale da "B72" a "AM72" verticale da "B96" a "AM96"
queste due arre sono ovviamente sullo stesso foglio....
okkei..... Paolo... ho risolto così.... due macro separate due pulsanti separati... ti inserisco il codice.... vorrei provare ad inserire una nuova area di stampa sullo stesso codice...
Sub SalvaPDF() Dim wks1 As Worksheet Dim dati As Range Dim percorso As String Dim nomefile As String Set wks1 = Worksheets("Gennaio") Set dati = wks1.Range("B6:AM47") percorso = ActiveWorkbook.Path & "\" dati.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True, Filename:="C:\Users\Jaeger\Desktop\Nuova cartella\test" MsgBox "Copia PDF salvata con successo!", vbInformation, "Avviso di notifica" Set wks1 = Nothing Set dati = Nothing End Sub
-
AutoreArticoli