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

LoginRegistrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
  • Autore
    Articoli
  • #28908 Risposta
    Jaeger
    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 Risposta
      PMC77
      PMC77
      Partecipante
        9 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 Risposta
        Jaeger
        Jaeger
        Partecipante

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

           

          #28916 Risposta
          PMC77
          PMC77
          Partecipante
            9 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

            Jaeger
            #28922 Risposta
            Jaeger
            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 Risposta
              Jaeger
              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 Risposta
                Jaeger
                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
                LoginRegistrati
                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:



                vecchio frac - 2750 risposte

                albatros54
                albatros54 - 1038 risposte

                patel
                patel - 1032 risposte

                Marius44
                Marius44 - 922 risposte

                Luca73
                Luca73 - 750 risposte