株式会社テラソフトデザイン

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Try
        AxWfrControl1.Open("d:\test\sample.wfr")
        AxWfrControl1.Import("#1", 103, "d:\test\sample.utf8.csv")
        AxWfrControl1.Create()
    Catch ex As Exception
        MessageBox.Show(AxWfrControl1.GetLastErrorMsg(), "ERROR")
    End Try
End Sub

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    Try
        AxWfrControl1.PrintOut(0, "TestPrinter-1", "ProgressDlg=result")
    Catch ex As Exception
        MessageBox.Show(AxWfrControl1.GetLastErrorMsg(), "ERROR")
    End Try
End Sub