spread的打印输出和pdf输出报BeginInvoke的错

收藏

如果点击的控件和spread不在同一form上,spread的打印输出和pdf输出就会报BeginInvoke的错
Button1输出就会报BeginInvoke的错
Button2没有报错

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      Dim frmprint As Form2
      frmprint = New Form2
      Dim filter As String = &quot

DF files(*.PDF)|*.PDF"
      Dim fn As String = ""
      ' ファイル保存ダイアログ起動
      Using sfd As New SaveFileDialog()
         sfd.Filter = filter
         sfd.FileName = "test"
         If sfd.ShowDialog() = DialogResult.OK Then
            fn = sfd.FileName
         Else
            Return
         End If
      End Using
      ' ◆PDF出力
      frmprint.FpSpread1.ActiveSheet.PrintInfo.PrintToPdf = True
      frmprint.FpSpread1.ActiveSheet.PrintInfo.PdfFileName = fn
      frmprint.FpSpread1.PrintSheet(frmprint.FpSpread1.ActiveSheetIndex)
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      Dim filter As String = &quot

DF files(*.PDF)|*.PDF"
      Dim fn As String = ""
      ' ファイル保存ダイアログ起動
      Using sfd As New SaveFileDialog()
         sfd.Filter = filter
         sfd.FileName = "test"
         If sfd.ShowDialog() = DialogResult.OK Then
            fn = sfd.FileName
         Else
            Return
         End If
      End Using
      ' ◆PDF出力
      FpSpr.ActiveSheet.PrintInfo.PrintToPdf = True
      FpSpr.ActiveSheet.PrintInfo.PdfFileName = fn
      FpSpr.PrintSheet(FpSpr.ActiveSheetIndex)
End Sub
End Class

test.rar (85.15 KB, 下载次数: 274)

iceman · iceman

回复 1楼417827155的帖子

问题已经重现，接下来会提交到产品组，有进一步反馈第一时间通知你。

		自动登录	找回密码
密码			立即注册

[已处理] spread的打印输出和pdf输出报BeginInvoke的错

1 个回复

活字格认证

微信认证勋章

元老葡萄