2017-10-25 12 views
-1

私は学生の結果を示すことができる用紙を持っています。私の学生用紙をdocxに印刷したい

これは、プログラムの外観です:

this is the program's look

Public Class Form2 
    Private Sub PenilaianBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) 
     Me.Validate() 
     Me.PenilaianBindingSource.EndEdit() 
     Me.TableAdapterManager.UpdateAll(Me.MahasiswaDataSet) 

    End Sub 

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     'TODO: This line of code loads data into the 'MahasiswaDataSet.penilaian' table. You can move, or remove it, as needed. 
     Me.PenilaianTableAdapter.Fill(Me.MahasiswaDataSet.penilaian) 
     NimTextBox.Text = "" 
     NamaLabel1.Text = "" 
     NimLabel1.Text = "" 
     TugasLabel1.Text = "" 
     UlanganLabel1.Text = "" 
     UtsLabel1.Text = "" 
     UasLabel1.Text = "" 
     HasilLabel1.Text = "" 
     SkorLabel1.Text = "" 
    End Sub 

    Private Sub btnoke_Click(sender As Object, e As EventArgs) Handles btnoke.Click 
     Try 
      Dim dt = PenilaianTableAdapter.GetDataBycaridata(NimTextBox.Text) 
      If dt.Rows.Count <> 0 Then 
       NamaLabel1.Text = dt.Rows(0).Item(1) 
       NimLabel1.Text = dt.Rows(0).Item(2) 
       TugasLabel1.Text = dt.Rows(0).Item(3) 
       UlanganLabel1.Text = dt.Rows(0).Item(4) 
       UtsLabel1.Text = dt.Rows(0).Item(5) 
       UasLabel1.Text = dt.Rows(0).Item(6) 
       HasilLabel1.Text = dt.Rows(0).Item(7) 
       SkorLabel1.Text = dt.Rows(0).Item(8) 
      Else 
       MsgBox("NIM Yang Anda Input Salah Atau Data Anda Belum Diinput. Silahkan Coba Lagi", MsgBoxStyle.Critical, "Info") 
       NimTextBox.Text = "" 
       NamaLabel1.Text = "" 
       NimLabel1.Text = "" 
       TugasLabel1.Text = "" 
       UlanganLabel1.Text = "" 
       UtsLabel1.Text = "" 
       UasLabel1.Text = "" 
       HasilLabel1.Text = "" 
       SkorLabel1.Text = "" 
      End If 
     Catch ex As Exception 
      MsgBox(ex.Message) 
     End Try 
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Me.Hide() 
     Form3.Show() 
    End Sub 
End Class 

問題は、次のとおりです。

  1. 私はこのような "桶" ボタンの結果を印刷したいです。 NAM、NIM、Tugas、Ulangan、UTS、UAS、hasil、skorを私が作成したMicrosoft Wordテンプレートに変換します。

    これは、DOCXテンプレートです: this is the docx template

  2. 私は、コードがどのようにしてそれを行う方法がわかりません。

私を助けてください。

+0

この質問は本当に広いです。あなたは自分で研究をしましたか?何を試しましたか?あなたが遭遇した問題は何ですか? – LeonG

答えて

0

最も簡単な解決策は、ある種の単語/ Excelエクスポートです。私はこのガイドをとてもうまく説明するので、このガイドをご覧になることをお勧めします。 https://www.codeproject.com/Tips/669509/How-to-Export-Data-to-Excel-in-VB-NET

+0

ありがとう、私は明日それを行います。私はヒントをしようとすぐにお知らせします。 –

関連する問題