Terve!
Miten saan tulostettua useampaan sivuun muutaman rivin yhdeltä sivulta?
esim. kun tulostan "Sheet2":n, paperilla on "Sheet1":stä rivit 1:9, loput rivit tulevat "Sheet2":sta.
Siis, Minulla on työkirja, raportin pohja, jossa on 15-30 sivua, jokainen sivu on hieman erilainen sisällöltään, joten 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, 9 riviä tekstiä. Näiden tietojen ei tarvitse näkyä sivuilla, riittää kun ne tulostettaessa sivut ilmestyvät paperin yläosaan, arvot tulevat ensimmäiseltä sivulta.
Olen kikkailut textboxien kanssa, mutten ole siihen ratkaisuun kovin tyytyväinen.
Kiitoksia etukäteen.
Miten saan tulostettua useampaan sivuun muutaman rivin yhdeltä sivulta?
esim. kun tulostan "Sheet2":n, paperilla on "Sheet1":stä rivit 1:9, loput rivit tulevat "Sheet2":sta.
Siis, Minulla on työkirja, raportin pohja, jossa on 15-30 sivua, jokainen sivu on hieman erilainen sisällöltään, joten 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, 9 riviä tekstiä. Näiden tietojen ei tarvitse näkyä sivuilla, riittää kun ne tulostettaessa sivut ilmestyvät paperin yläosaan, arvot tulevat ensimmäiseltä sivulta.
Olen kikkailut textboxien kanssa, mutten ole siihen ratkaisuun kovin tyytyväinen.
Kiitoksia etukäteen.
Vastaukset 7
Vanhimmat
näin
file->page setup->sheet lehti->ja print titles kohdassa kirjoitat siihen rows to repeat at top ne rivit mitkä haluat toistuvan
> 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ää
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
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!
1. Maalaa solut Taul1 mitkä haluat kopioitavan muille sivuille.
2. Kopioi alue
3. Valitse Taul2(tai kaikki taulukot mihin haluat kopioida) ja solu A1
3. SHIFT pohjassa Muokkaa/Liitä kuvalinkki
ja se on siinä :-)
Nyt kaikki tekemäsi muutokset Taulukko 1 otsikkoriveillä näkyvät myös muissa taulukoissa. Ja voit vapaasti muotoilla taulukkoasi ilman, että muotoilut muuttavat kuvaasi tai kääntäen voit vapaasti muotoilla Taulukko1 muotoiluja ilman, että muiden taulukoiden muotoilut muuttuvat
@Kunde
The Simple The Best
Keep Exceling
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ä.