VB6で印刷するには？ (ID:90132)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Sub cmdENTRY_Click() Dim NO As String Dim NAME As String Dim ADRESS As String Dim Phonenumber As String Dim sex As String Dim LTD As String Dim flg1 As Integer Dim filenum As Integer filenum = FreeFile Dim temp As String NO = txtNO NAME = txtNAME ADRESS = txtADRESS Phonenumber = txtPHONENUMBER sex = txtSEX LTD = txtLTD If NO = "" Then flg1 = 1 End If If NAME = "" Then flg1 = 1 End If If ADRESS = "" Then flg1 = 1 End If If Phonenumber = "" Then flg1 = 1 End If If sex = "" Then flg1 = 1 End If If LTD = "" Then flg1 = 1 End If If flg1 = 1 Then MsgBox "入力されていない項目があるぞ" Exit Sub End If If 4 <> Len(NO) Then MsgBox "社員番号を正しく入力してくれ" Exit Sub End If If False = IsNumeric(NO) Then MsgBox "入力形式に誤りがある" Exit Sub End If If 1 <> Len(sex) Then MsgBox "性別を正しく入力する" Exit Sub End If ' If "1" Or "2" <> sex Then ' MsgBox "性別を正しく入力する" ' End If Open "C:\Documents and Settings\Administrator\デスクトップ\kobayashi\社員登録.csv" For Input As #filenum Do Until EOF(filenum) 'データを一件ずつ読み込む Input #filenum, temp If temp = NO Then flag2 = 1 End If Loop Close #filenum If flag2 = 1 Then MsgBox "同じ社員番号あり" Exit Sub End If Open "C:\Documents and Settings\Administrator\デスクトップ\kobayashi\社員登録.csv" For Append As #filenum Write #filenum, NO, NAME, ADRESS, Phonenumber, sex, LTD Close #filenum MsgBox "登録しました" txtNO.SetFocus txtNO.Text = "" txtNAME.Text = "" txtADRESS.Text = "" txtPHONENUMBER.Text = "" txtSEX.Text = "" txtLTD.Text = "" End Sub Private Sub cmdcopy_Click() With Printer.PaperSize = vbPRPSA4 Orientation = vbPRORLandscape End With Open "C:\Documents and Settings\Administrator\デスクトップ\kobayashi\社員登録.csv" For Append As #filenum Write #filenum, NO, NAME, ADRESS, Phonenumber, sex, LTD Close #filenum End Sub 社員登録を作成しそれをエクセルファイルに飛ばし、エクセルファイルに飛ばしたものを印刷したいのですが、かなり行き詰ってしまいました。申し訳ありませんが、どなたか知識を教えて頂きませんか？？