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 = &quotDF 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 = &quotDF 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)

2015-3-20 16:29 上传

点击文件名下载附件
demo

回复 1楼417827155的帖子

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