Miten saa tulostettua usean taulukon samaan aikaan ja vielä saman tulostusalueen tai tarkemmin sivun?
Esim. Minulla on vaikka 100 taulukkoa ja jokainen on lähes identtinen ja haluan tulostaa jokaisesta sivun 3.
Esim. Minulla on vaikka 100 taulukkoa ja jokainen on lähes identtinen ja haluan tulostaa jokaisesta sivun 3.
Vastaukset 3
Vanhimmat
Jos ne taulukot olisi samassa työkirjassa (100 tuskin on), ryhmittelisin taulut, sivun reunaviivathan näkyy eli jos on kolmossivulla, valitsin siinä ryhmityksessä sen tulostettavan taulukon, tulosta-komennossa taas valitsin tulostettava sivu 3, valitut taulukot.
Mun koneella ainakin parilla samassa työkirjassa olevalla taulukolla toimii.
Tässä yksi mahdollisuus:
Sub TulostaSivut()
Dim Taulukko As Worksheet
Dim SivuNro As Variant
SivuNro = InputBox("Anna sivun numero ", "Tulostus")
If Not IsNumeric(SivuNro) Then
MsgBox "Väärin! Anna luku!", vbCritical, "Tulostus"
Exit Sub
End If
SivuNro = Int(SivuNro)
If SivuNro = 0 Then
MsgBox "Väärin! Nolla ei kelpaa!", vbCritical, "Tulostus"
Exit Sub
End If
For Each Taulukko In ActiveWorkbook.Worksheets
Taulukko.PrintOut From:=SivuNro, To:=SivuNro
Next Taulukko
End Sub
Kiitokset tulevat myöhään, mutta toivottavasti tavoittavat.
Kiitokset, en olisi koskaan selvinnyt tuosta ilman apua. Tuo helpottaa ja nopeuttaa työtä ihan mielettömästi.