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

• #44538 eszgé100 őstag eszgé100 #44488

  Új Válasz 2020-07-27 20:07:54 #44538

  Ú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

  

  eszgé100

  őstag

  válasz eszgé100 #44488 üzenetére

  vetne erre valaki egy pillantást?

  fenti problémát szeretném még mindig megoldani, a változókat szépen összelinkelem egy dokumentumból, valamint ugyanebben a dokumentumban elhelyezek egy Gombot, ami lefuttat valami hasonlót:

  Sub Open_Word_Document()
    Set objWord = CreateObject("Word.Application")
        objWord.Documents.Open "Z:\Excel\ALBÉRLET.docm"
        objWord.Visible = False
        objWord.Application.Run "NewMacros.toprint"
        CreateObject("Excel.Application").Wait (Now + TimeValue("00:00:01"))
        objWord.Quit SaveChanges:=objWordsDoNotSaveChanges
        Set objWord = Nothing
End Sub

  A word doksiban pedig lefutnak ezek a makrók:

  Sub kicsi()
'
' kicsi Macro
'
'
    Selection.WholeStory
    Selection.Font.Size = 10
End Sub
Sub toprint()
'
' toprint Macro
'
'
Dim strCurrentPrinter As String
    strCurrentPrinter = Application.ActivePrinter
    Application.Run MacroName:="kicsi"
    Application.ActivePrinter = "HPFDDA3F (HP Photosmart C4500 series)"
    Application.PrintOut Range:=wdPrintAllDocument, Copies:=1
    Application.ActivePrinter = strCurrentPrinter
End Sub

  Természetesen csak egy példa, ami nagyjából azt demonstrálja, hogy egy gombnyomásra a háttérben megnyíljon a Word/Excel, lefuttasson adott makrókat majd azt egy megadott nyomtatóra elküldje, és mentés nélkül zárja be.

  Ezen kívül kell még szerintetek nekem valami, mielőtt nekiállok linkelni a doksikat és nagyüzemben makrókat írni hozzájuk?

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