Új hozzászólás Aktív témák

• #30873 the radish senior tag bteebi #30871

  Új Válasz 2016-03-06 14:52:08 #30873

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  the radish

  senior tag

  válasz bteebi #30871 üzenetére

  Idézőjelek nélkül:
  

  Teszteléshez itt a teljes kód:

  Sub Macro1()
  
  Dim objWord
  Dim objDoc
  Set objWord = CreateObject("Word.Application")
  Set objDoc = objWord.Documents.Open("d:\xxx.docx")
  objWord.Visible = True
  objDoc.PrintOut From:=3, To:=3, Copies:=1
  objWord.Quit
  
  End Sub

Új hozzászólás Aktív témák