With Form10.VSReport1 For n = 1 To VSFlexGrid8.Rows - 1 m = "D:\我的文档\111111" + VSFlexGrid8.TextMatrix(n, 1) + "_COA.pdf" .Fields.Item("ddh").Text = VSFlexGrid8.TextMatrix(n, 1) Form10.VSPrinter1.FileName = m .Render Form10.VSPrinter1 Form10.VSPrinter1.PrintDoc Form10.VSPrinter1.EndDoc Next n End With