| 投稿日 | ： 2003/05/07(Wed) 17:49 |
| 投稿者 | ： 佐藤 |
| ＵＲＬ | ： |
| タイトル | ： Re^2: word2000をつかったラベルプリントの件 |
> LabelPrint.doc をＶＢの実行ＥＸＥと同じフォルダにするとどうなりますか？
実は同じファイルにもうひとつのフォームがあり,そのフォームをエクセルを起動と同時に
開くようにしている為、オフィスのXLstartフォルダに入れているんです。
フォーム2としてあたらしくフォームを作り,ボタンを押すと印刷をできる形が理想なのですが・・
Private Sub Commandbutton1_Click()・・＞command1_click()をこのようにしています
On Error Resume Next
Dim strMsg As String
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = New Word.Application
Dim AddressFile As String 'Excelの住所録ファイル名
Dim StrRcNo As String '印刷するレコードNo start
Dim EndRcNo As String '印刷するレコードNo End
'差し込み印刷設定してあるWordのファイルを開く場合
Set wdDoc = wdApp.Documents.Open(App.Path & "\LabelPrint.doc")
'ファイル名取得(ファイルシステムコントロールより取得）
AddressFile = txtFilePath.Text
If Len(Trim$(AddressFile)) = 0 Then
AddressFile = App.Path & "\kokyaku1.xls"・・・＞顧客のアドレスが入ったファイルです
End If
教えていただいたようにLabelPrint.docをXLstartへいれてみたのですが、変数定義がないと
エラーになってしまいます。なれないものでお手数をおかけしますが,よろしくアドバイスお願いします