VBAを使用してWord文書の最初のページのみを印刷するにはどうすればよいですか？

Question

私は誰かが私を助けることを望んでいる。職場では、CNCマシン用のプログラムを作成しています。これらはワードドキュメントです。これらは、マシンの名前を付けたフォルダに保存されます。私はマシンを選択してプログラム番号を記入できるユーザーフォームを作った。 「OK」をクリックすると、必要なすべてのプログラムが開きます。 （これはうまくいきます） 開いているすべてのプログラムの最初のページを印刷します。これはどこに詰まっています。以下のコードを参照してください。

If Len(programbox.Value) = 1 Then zeros = "00000" 
If Len(programbox.Value) = 2 Then zeros = "0000" 
If Len(programbox.Value) = 3 Then zeros = "000" 
If Len(programbox.Value) = 4 Then zeros = "00" 
If Len(programbox.Value) = 5 Then zeros = "0" 
If Len(programbox.Value) = 6 Then zeros = "" 

Set wordapp = CreateObject("word.application") 
If machinebox.Value = "CTX510" Then letter = "C" 
If machinebox.Value = "CTX510" Then machinebox.Value = "CTX510\program" 
If machinebox.Value = "Lu25" Then letter = "F" 
If machinebox.Value = "LB45" Then letter = "N" 


set objdoc1 = wordapp.documents.Open "\\path\Machine\" & machinebox.Value & "\" & letter & "1" & zeros & programmabox.Value & ".OPT" 
set objdoc2 = wordapp.documents.Open "\\path\Machine\" & machinebox.Value & "\" & letter & "2" & zeros & programmabox.Value & ".OPT" 
set objdoc3 = wordapp.documents.Open "\\path\Machine\" & machinebox.Value & "\" & letter & "3" & zeros & programmabox.Value & ".OPT" 

objdoc1.printout 
objdoc2.printout 
objdoc3.printout 

これは文書全体を印刷します。私はインターネットで検索しましたが、これを最初のページだけに変更する方法が見つかりません。

Answer 1

あなたのコードのこの小さな（未テスト）リファクタリング試みることができる：

• が正常に6桁1とにprogramboxから番号をフォーマットするFormat()機能を使用：I

  Dim iLetter As Long 
  Dim letter As String 
  Dim objdoc As Object 
  
  Select Case machinebox.Value 
      Case "CTX510" 
       letter = "C" 
       machinebox.Value = "CTX510\program" 
      Case "Lu25" 
       letter = "F" 
      Case "LB45" 
       letter = "N" 
  End Select 
  
  With CreateObject("word.application") 
      For iLetter = 1 To 3 
       Set objdoc = .documents.Open("\\path\Machine\" & machinebox.Value & "\" & letter & iLetter & Format(programbox.Value, "000000") & ".OPT") 
       objdoc.PrintOut Pages:="1" 
       objdoc.Close False 
      Next iLetter 
  End With 
  

  を先行ゼロ

• Select Case .... End Selectブロックを使用して異なるmachinebox.Valueのケースを切り替えるブロック：

• は

• は1から3までのループを使用する代わりに、あなたは、プリントアウトHTTPSのMSDNを見てする必要があります3回同じ文