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.
Excel tulostus ongelma
7
466
Vastaukset
- se onnistu
näin
file->page setup->sheet lehti->ja print titles kohdassa kirjoitat siihen rows to repeat at top ne rivit mitkä haluat toistuvan- Nimimerkki
> 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
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ää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 - JuAs2
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 SubKiitos 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 ExcelingKoska se on kuvalinkki myös muutokset soluissa näkyvät kuvassa ja sitä voi siirrellä haluamaasi paikkaan
- Nimimerkki
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ä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww483661- 472631
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1301987Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1011721Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.531139Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381127- 1731026
En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois84956Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M176935Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-14884