谢谢。问题是,现在 我们也是采用 文件方式,但是 如下代码
Private Sub btnPurchaseRequest_Click(sender As Object, e As EventArgs) Handles btnPurchaseRequest.Click
Dim fileNamePdf = tGuid.NewGuid().ToString + ".pdf"
Dim Spread As New FarPoint.Win.Spread.FpSpread
Spread.Sheets.Add(。。。)
Spread.Sheets.Add(。。。)
Dim printset As New FarPoint.Win.Spread.PrintInfo()
printset.PrintToPdf = True
printset.BestFitWithSpan = True
printset.PdfWriteMode = FarPoint.Win.Spread.PdfWriteMode.New
printset.PdfFileName = fileNamePdf
Spread.Sheets(0).PrintInfo = printset
Spread.Sheets(0).RowHeader.Visible = False
Spread.Sheets(0).ColumnHeader.Visible = False
Spread.Sheets(1).PrintInfo = printset
Spread.Sheets(1).RowHeader.Visible = False
Spread.Sheets(1).ColumnHeader.Visible = False
Spread.PrintSheet(-1)
。。。这个是得不到文件的??? 怎么办: 用另外一个线程等待那个文件生成??
End Sub
但是这个SUB一走完,一会文件就生成好了
|