Excel tulostus ongelma

> näin
> file->page setup->sheet lehti->ja print titles kohdassa kirjoitat > siihen rows to repeat at top ne rivit mitkä haluat toistuvan

Tuo onnistuu jos tulostetaan samasta taulukosta. kokeilin tulostaa noita rivejä toisesta taulukosta, ei hyväksynyt viitauksia toiseen taulukkoon. Jos joku onnistuu niin laittaakaa ihmeessä esimerkki missä muodossa hyväksyy viitauksen toiseen taulukkoon ?

Tuossa ketjun avaajalla oli vielä lisää kinkkisiä ehtoja:

> sarakkeiden leveys vaihtelee. Sivuja myös muokataan niin että > sarakkeita tulee lisää ja vähenee eri sivuilla tilanteen mukaan.
> Jokaiseen sivuun pitäisi kuitenkin saada tulostettaessa
> yläosaan samat tiedot samoihin paikkoihin

Jos sarakkeiden leveydet eivät vaihtele voisi ajatella vaihtoehtoa, jossa varaat yhden taulukon tulostusta varten, tähän taulukkoon sitten koodilla kopioit ensin tuon sivun ylä laidan ja sitten kopioit loput haluamaltasi taulukosta, koska noi on sitten samassa taulukossa niin voit käyttää edellisen kirjoittajan vinkkiä. Tämä pitäisi sujua aika vaivattomasti.

Jos sarakkeiden leveys vaihtelee niin sitten onkin aika koodaaminen, mutta uskon että ajan kanssa tuokin koodi löytyisi. Jos löydän ylimääräistä aikaa niin tehen pari testausta ja laitan sitten tänne jos löydän jotain lisättävää

Nimimerkki kirjoitti:

> näin
> file->page setup->sheet lehti->ja print titles kohdassa kirjoitat > siihen rows to repeat at top ne rivit mitkä haluat toistuvan

Tuo onnistuu jos tulostetaan samasta taulukosta. kokeilin tulostaa noita rivejä toisesta taulukosta, ei hyväksynyt viitauksia toiseen taulukkoon. Jos joku onnistuu niin laittaakaa ihmeessä esimerkki missä muodossa hyväksyy viitauksen toiseen taulukkoon ?

Tuossa ketjun avaajalla oli vielä lisää kinkkisiä ehtoja:

> sarakkeiden leveys vaihtelee. Sivuja myös muokataan niin että > sarakkeita tulee lisää ja vähenee eri sivuilla tilanteen mukaan.
> Jokaiseen sivuun pitäisi kuitenkin saada tulostettaessa
> yläosaan samat tiedot samoihin paikkoihin

Jos sarakkeiden leveydet eivät vaihtele voisi ajatella vaihtoehtoa, jossa varaat yhden taulukon tulostusta varten, tähän taulukkoon sitten koodilla kopioit ensin tuon sivun ylä laidan ja sitten kopioit loput haluamaltasi taulukosta, koska noi on sitten samassa taulukossa niin voit käyttää edellisen kirjoittajan vinkkiä. Tämä pitäisi sujua aika vaivattomasti.

Jos sarakkeiden leveys vaihtelee niin sitten onkin aika koodaaminen, mutta uskon että ajan kanssa tuokin koodi löytyisi. Jos löydän ylimääräistä aikaa niin tehen pari testausta ja laitan sitten tänne jos löydän jotain lisättävää

Lue lisää

Tein muutamia testejä ja sain tällaisen koodin toimimaan, Taulukko 3 toimii tulostettavana sivuna, menet vaikka taulukkoon 2 ja ajat koodin niin pitäisi jokaiselle paperille tulla taulukosta 1 rivit 1-9.

Tuo jää nyt tuonne taulukkoon 3, mutta voit vaikka lisätä tauluun kolme napin ( jota ei tietenkään tulosteta ) josta pääsee takaisin taulukkoon josta tulostus käynnistyi.

tapojahan on aina monia ja jokainen muokkaa itsellensä sopivimman vaihtoehdon.


Sub Macro1()
'
' Keyboard Shortcut: Option Cmd y
'
Dim tarkistaKuva As Shape
For Each tarkistaKuva In Sheet3.Shapes
If tarkistaKuva.Type = 13 Then tarkistaKuva.Delete
Next tarkistaKuva

Sheet3.Cells.Clear


If ActiveSheet.Index = 1 Then

ActiveSheet.Range("A10:E80").Copy
Else

ActiveSheet.Range("A1:E80").Copy
End If


Sheet3.Range("A10").PasteSpecial _
Paste:=xlPasteColumnWidths, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

Sheet3.Paste

Sheet3.Activate
Sheet3.Range("A1").Select

Sheet1.Range("A1:E9").CopyPicture Appearance:=xlPrinter
Sheet3.Pictures.Paste

With Sheet3.PageSetup
.PrintTitleRows = "$1:$9"
.PrintTitleColumns = ""
End With

Sheet3.PrintPreview


End Sub

Nimimerkki kirjoitti:

Tein muutamia testejä ja sain tällaisen koodin toimimaan, Taulukko 3 toimii tulostettavana sivuna, menet vaikka taulukkoon 2 ja ajat koodin niin pitäisi jokaiselle paperille tulla taulukosta 1 rivit 1-9.

Tuo jää nyt tuonne taulukkoon 3, mutta voit vaikka lisätä tauluun kolme napin ( jota ei tietenkään tulosteta ) josta pääsee takaisin taulukkoon josta tulostus käynnistyi.

tapojahan on aina monia ja jokainen muokkaa itsellensä sopivimman vaihtoehdon.


Sub Macro1()
'
' Keyboard Shortcut: Option Cmd y
'
Dim tarkistaKuva As Shape
For Each tarkistaKuva In Sheet3.Shapes
If tarkistaKuva.Type = 13 Then tarkistaKuva.Delete
Next tarkistaKuva

Sheet3.Cells.Clear


If ActiveSheet.Index = 1 Then

ActiveSheet.Range("A10:E80").Copy
Else

ActiveSheet.Range("A1:E80").Copy
End If


Sheet3.Range("A10").PasteSpecial _
Paste:=xlPasteColumnWidths, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False

Sheet3.Paste

Sheet3.Activate
Sheet3.Range("A1").Select

Sheet1.Range("A1:E9").CopyPicture Appearance:=xlPrinter
Sheet3.Pictures.Paste

With Sheet3.PageSetup
.PrintTitleRows = "$1:$9"
.PrintTitleColumns = ""
End With

Sheet3.PrintPreview


End Sub

Lue lisää

Kiitos hyvästä koodin pätkästä, oli uusi ominaisuus minulle, tou liitä kuva juttu.

Karsin vähän ylimääräisiä, eli kopioitavilla riveillä ei tule muutoksia sarakkeisiin, vain niillä sivuilla jonne tiedot viedään.

Sain seuraavan pätkän aikaan, vastaa täysin tarpeitani.

Sub Macro1()


Dim tarkistaKuva As Shape
Dim i As Integer

For i = 2 To Worksheets.Count

For Each tarkistaKuva In Sheets(i).Shapes

If tarkistaKuva.Type = 13 Then tarkistaKuva.Delete

Next tarkistaKuva

Sheet1.Range("A1:E9").CopyPicture Appearance:=xlPrinter
Sheets(i).Activate
ActiveSheet.Range("a1").Select
Sheets(i).Pictures.Paste


Next i

Sheets.PrintPreview

End Sub

Kiitos muillekkin vastanneille!

Koska se on kuvalinkki myös muutokset soluissa näkyvät kuvassa ja sitä voi siirrellä haluamaasi paikkaan

kunde kirjoitti:

Koska se on kuvalinkki myös muutokset soluissa näkyvät kuvassa ja sitä voi siirrellä haluamaasi paikkaan

Jos tulostettavan taulukon tekstit alkaa vaikka riviltä 5 ja olet kopioinut noi ekasta taulukosta rivit 1-9 menee tiedot päällekäin, vai mitä.

Voit tietenkin varata taulukoon tyhjiä rivejä, nutta mitäs järkeä siinä on, vai mitä.