Stampa file in pdf

Question

Salve

Devo stampare una lista di 150 colonne. Ho fatto una macro in cui divido l'intera lista per 40 (il necessario per riempire un foglio A4).

Quando eseguo la macro il primo foglio è giusto i fogli seguenti riportano pari pari il contenuto del primo foglio.

Ho seguito step by step con F8 i vari passaggi e la selezione di tutte le pagini risulta corretta ma nella stampa riporta il primo foglio.

Sto uscendo pazzo.

Il codice è questo

Sub stampa_pdf()

Dim Destinazione    As Variant 

Dim percorso        As String, Filename As String 

Dim nomef           As String 

Dim fdObj As Object 

Dim printRange As Range

Application.ScreenUpdating = False           ' Creazione cartella Elenco Invitati 

Set fdObj = CreateObject("Scripting.FileSystemObject") 

If fdObj.FolderExists("C:\Elenco Invitati") Then 

    ' La cartella esiste già, non fare nulla 

Else 

    fdObj.CreateFolder ("C:\Elenco Invitati") 

End If 

Application.ScreenUpdating = True 

percorso = "C:\Elenco Invitati\"        '<=== da adattare 

    ultimariga = Cells(Rows.Count, "AR").End(xlUp).Row         ' File Pdf 

   Range("AR13:AR" & ultimariga).Select 

r1 = Selection.Rows.Count 

r = Int(r1 / 40) + 1 

y = 0 

Range("AR12").Select 

idomanda = MsgBox("Fogli " & r & "    Procedo con la registrazione?", vbYesNo) 

If idomanda = vbYes Then

For x = 1 To r

'Range(Cells(13 + y, 44), Cells(13 + 40 + y, 45)).Select 

Range(Cells(13 + y, 43), Cells(13 + 40 + y, 44)).Select 

nomef = "Elenco " & x & ".pdf" 

Destinazione = percorso & nomef 

' Esporta il foglio attivo come PDF 

ActiveSheet.ExportAsFixedFormat \_ 

    Type:=xlTypePDF, \_ 

    Filename:=Destinazione, \_ 

    Quality:=xlQualityStandard, \_ 

    IncludeDocProperties:=True, \_ 

    IgnorePrintAreas:=False, \_ 

    from:=1, \_ 

    To:=1, \_ 

    OpenAfterPublish:=False 

  y = y + 41 

Next

Range("AR12").Select

Else:

End If

End Sub

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao, MicheleCarcuro

Grazie per aver utilizzato i prodotti Microsoft e per averli pubblicati nella community.

Comprendiamo il problema che stai riscontrando. Sfortunatamente,  VBA non è supportato nel forum di Microsoft Answers. È più adatto per la pubblicazione su Stack Overflow  (solo in inglese).Pubblica le domande di programmazione VBA su Stack Overflow utilizzando il tag vba , insieme a qualsiasi altro tag pertinente.Tieni presente che Stack Overflow ha linee guida come la richiesta di un titolo descrittivo, una dichiarazione completa e concisa del problema e dettagli sufficienti per riprodurre il problema. Le richieste di funzionalità o le domande troppo generiche sono considerate fuori tema. Dichiarazione di non responsabilità: Microsoft non fornisce alcuna assicurazione e/o garanzia, implicita o di altro tipo, e non è responsabile delle informazioni ricevute dall'utente dai siti collegati di terze parti o di qualsiasi supporto correlato alla tecnologia.Non sarò in grado di aiutarti, ma lascerò aperta la domanda nel caso in cui uno dei nostri fantastici volontari abbia idee per te.

Spero che le informazioni di cui sopra possano aiutarti. Sentiti libero di inviare un messaggio se hai bisogno di ulteriore aiuto.

I miei migliori auguri

Aiden.C - MSFT |Specialista del supporto della community Microsoft