Sub prtDocs()
‘Tulostetaan kaikki Word asiakirjat nykyisessä kansiossa
Dim adoc As String
adoc = Dir(ActiveDocument.Path & “\*.DOCX”)
Do While adoc <> “”
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
End Sub
Sub prtDocs()
‘Tulostetaan kaikki Word asiakirjat nykyisessä kansiossa
Dim adoc As String
adoc = Dir(ActiveDocument.Path & “\*.DOCX”)
Do While adoc <> “”
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
End Sub
Kun ryhmittelet Excelissä taulut, voit tulostaa ne yhdellä kertaa.
1. Taulut peräkkäin:
– Osoita ensimmäistä taulua
– Paina alas ja pidä alhaalla vaihtonäppäin (Shift)
– Napsauta viimeistä taulua jonka haluat mukaan
2. Taulut eivät ole peräkkäisiä
– Valitse ensimmäinen taulu
– Paina ja pidä alhaalla Ctrl näppäin
– Napsauta niitä tauluja joita haluta mukaan valintaan
(Vertaa tiedostojen valintaa resurssihallinnassa)
Valitse Tiedosto ja tulosta (File Print) ja varmista että asetuksissa (Settings) on valittuna Tulosta aktiiviset laskentataulukot (Print Active Sheets)
Mikäli sinulla on ylä-/ala- tunniste ja siellä sivunumero saat yhtenäisen sivunumeroinnin kaikkiin tauluihin.