Sviluppare funzionalita su Microsoft Office con VBA Macro salva in PDF e Macro stampa della sola area di stampa di un foglio Excel

Login Registrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
  • Autore
    Articoli
  • #28908 Score: 0 | Risposta

    Jaeger
    Partecipante

      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...

       

      #28909 Score: 0 | Risposta

      PMC77
      Partecipante
        18 pts

        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

        #28914 Score: 0 | Risposta

        Jaeger
        Partecipante

          Ciao PMC77 grazie infinite della risposta... vado a controllare subito..... che cosa è #28321 ? scusa sono ignorante lo so....  

           

          #28916 Score: 1 | Risposta

          PMC77
          Partecipante
            18 pts

            @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

            #28922 Score: 0 | Risposta

            Jaeger
            Partecipante

              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`
              #28924 Score: 0 | Risposta

              Jaeger
              Partecipante

                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....

                #28925 Score: 0 | Risposta

                Jaeger
                Partecipante

                  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
                Login Registrati
                Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
                Rispondi a: Macro salva in PDF e Macro stampa della sola area di stampa di un foglio Excel
                Gli allegati sono permessi solo ad utenti REGISTRATI
                Le tue informazioni: