fala pessoal bom dia como estão
estou precisando de ajuda com esse código na parte de salvar o arquivo em pdf
Criei essa macro para preencher um layout e imprimir cada linha nesse layout.
Verde - Apesar de da Range está até 1000, ele só preenche até onde tem informação na célula, mas isso é um problema quando vou salvar o pdf porque ele salva 1000 arquivos.
Azul - Aqui eu tentei fazer com que o nome de cada arquivo fosse a informação que estaria da célula a2 e seguinte mas não sem sucesso. ex. arquivo 1 = nome da célula a2, arquivo 2 = nome da célula a3...
Sub Imprimirguias()
Dim i As Integer
Dim inss1 As Variant
Dim inss2 As Variant
Dim vlrrat As Variant
Dim cod As Variant
Dim codcc As Variant
Dim descc As Variant
Dim bcalc As Variant
Dim amjur As Variant
Dim patro As Variant
Dim segur As Variant
Dim salfa As Variant
Dim mater As Variant
Dim salvarpdf As String
cod = Application.WorksheetFunction.CountA(Worksheets("DGuias").Range("A2:A1000"))
codcc = Worksheets("DGuias").Range("A2:A1000")
descc = Worksheets("DGuias").Range("B2:B1000")
bcalc = Worksheets("DGuias").Range("C2:C1000")
patro = Worksheets("DGuias").Range("D2:D1000")
vlrat = Worksheets("DGuias").Range("E2:E1000")
segur = Worksheets("DGuias").Range("F2:F1000")
amjur = Worksheets("DGuias").Range("G2:G1000")
salfa = Worksheets("DGuias").Range("H2:H1000")
mater = Worksheets("DGuias").Range("I2:I1000")
inss1 = Worksheets("DGuias").Range("J2:J1000")
inss2 = Worksheets("DGuias").Range("K2:K1000")
For i = 1 To cod
Range("A10") = codcc(i, 1)
Range("A31") = codcc(i, 1)
Range("B10") = descc(i, 1)
Range("B31") = descc(i, 1)
Range("I9") = inss2(i, 1)
Range("I30") = inss2(i, 1)
Range("I10") = vlrat(i, 1)
Range("I31") = vlrat(i, 1)
Range("I13") = amjur(i, 1)
Range("I34") = amjur(i, 1)
Range("I14") = inss1(i, 1)
Range("I35") = inss1(i, 1)
Range("A16") = bcalc(i, 1)
Range("A37") = bcalc(i, 1)
Range("C16") = patro(i, 1)
Range("C37") = patro(i, 1)
Range("E16") = segur(i, 1)
Range("E37") = segur(i, 1)
Range("G16") = salfa(i, 1)
Range("G37") = salfa(i, 1)
Range("I16") = mater(i, 1)
Range("I37") = mater(i, 1)
salvarpdf = "D:\OneDrive\Temporárias\" & i & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=salvarpdf, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End Sub
Postado : 14/07/2022 11:13 am