我想用vba将excel中的行范围转换为pdf文件

Question

我想将 excel 中的行范围转换为带有 vba 的 pdf 文件。但在不同的工作表中具有特定格式。到目前为止我所做的。但问题是，我的代码如何忽略具有相似值的行。我想在 pdf 文件下添加所有具有相似值的行。例如： the first image shows how the data are in the data set 和 second image is the format of the output 我希望 EmpID 作为输入，与该 EmpID 相关的行将作为输出，并且这些行将按顺序包含在输出格式中，如第三张图像 expected output。下面我添加了我在 VBA 中添加的代码以获得 pdf。 我面临的问题是它只生成一行的输出，例如 430 并忽略其他 5 个，它用于下一个唯一数字并打印，因为与该行相关的其他列包含必须是的信息包含在pdf中。提前非常感谢。 另一件事让它更清楚一点，我尝试使用 VLOOKUP 从一个 excel 表匹配到另一个表，以便使用某个 Emp_ID 值，行将获得某些输出

Sub pdf_test_7()
Dim i As Integer

For i = 2 To 10

    Sheets("ps").Cells(1, 2) = Sheets("WD").Cells(i, 1)
    
    
    Sheets("ps").Range("A1:Q25").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Users\Desktop\test_code_for_printing_pdf\" & Sheets("WD").Cells(i, 1) & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=True, _
    OpenAfterPublish:=False
    
Next i
    
    
End Sub

Answer 1

试试：

Sub pdf_test_7()
Dim i As Long
Dim ws as Worksheet

Set ws = Sheets("ps")

  With ws
   .PageSetup.PrintArea = .Range("A1:Q25").Address

   For i = 2 To 10

      .Cells(1, 2) = Sheets("WD").Cells(i, 1)

      .ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:="C:\Users\Desktop\test_code_for_printing_pdf\" & Sheets("WD").Cells(i, 1) & ".pdf", _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=False

   Next i 
  End With

 Set ws = Nothing
 End Sub