Valintanappi ja tulostus

valintanappi

ELI taulukossa 1 on kaksivalinta nappia joista jompi kumpi on valittava. Valinnan tarkoituksena on määrittää mitä tulostetaan painonapin ja makron avulla.
Valintanapit antavat linkkisoluun arvon 1 tai 2 riippuen siitä kumpi on valittu. Miten saan yhditettyä tuon tiedon tulostuspainikkeen makroon?

Valinta 1 tulostaa taul1 ja valinta 2 tulostaa taul 1 sekä taul 2. Erillisinä TULOSTA painikkeina se olisi helppoa mutta millainen koodi tarvitaa jotta tulostus tapahtuisi vakinnan mukaan.

1

161

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      tietämättä mistä valikosta olet napit lisännyt tein nyt visual basic valikosta valintanapeille
      taulukot 1 ja 2 oletuksena samoin nappien nimet

      ThisWorkbook moduuliin...

      Private Sub Workbook_BeforePrint(Cancel As Boolean)
      On Error Resume Next
      Application.EnableEvents = False
      ActiveSheet.Select
      Select Case True
      Case Sheets("Taul1").OptionButton1
      Sheets("Taul1").Select
      Case Sheets("Taul1").OptionButton2
      Sheets("Taul1").Select False
      Sheets("Taul2").Select False
      End Select
      ActiveWindow.SelectedSheets.PrintOut Copies:=1
      Sheets("Taul1").Select
      Cancel = True
      Application.EnableEvents = True
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. 4 kuoli kolarissa

      Kenen vastuulla tienhoito? Sohjoa ja vettä tie täynnä. Oliko säästetty tienhoidossa? Järkyttävä onnettomuus.
      Joensuu
      344
      13086

    2. Nainen, moraali on koetuksella sun kanssa

      Koen nyt olevani rappiolla ja kyllä, omaa syytäni ja itsekontrollin puutetta, mutta olethan kyllä puoleensavetävä, ettei
      Ikävä
      95
      1983

    3. Kuka on oikein

      Kaivattusi?
      Ikävä
      93
      1749

    4. Mikä on lempikuvasi

      Kaivatustasi?
      Ikävä
      83
      1663

    5. Onko kenelläkään tästä tietoo?

      https://www.haapavesi-lehti.fi/artikkeli/lukijalta-ilkka-repo-etsii-nimettoman-kirjeen-lahettajaa Olisi tärkeä saada te
      Haapavesi
      45
      1191

    6. Mitä sinä näet

      kun katsot peiliin?
      Ikävä
      95
      1159

    7. Ovatko miehet niin heikkoja ja lahjattomia, etteivät siedä tasa-arvoa?

      Muutenhan ei ole mitenkään perusteltavissa, miksi miesten pitäisi saada etuoikeuksia ja etumatkaa. Sehän tarkoittaisi, e
      Maailman menoa
      273
      996

    8. Ihastukselleni

      Kun viimeksi nähtiin, niin sisälläni repesi myrsky ja salamat iskivät kuin rajuilma. En halunnut katsoa sinua, en halunn
      Ikävä
      21
      983

    9. Se helpottaisi oloa jos

      Se toinen tietäisi että molemmat tykkäämme toisistamme. Se on asia mikä vaivaa ja ahdistaa minua vaikka tilanne olisikin
      Ikävä
      73
      967

    10. Suomussalmi News -valvontakameran tunnisteet pojista

      Pojat on aina poikia, mutta kiusanteko ja muu ilkivalta ei ole hyväksyttävää. Suomussalmi News -ryhmässä on uunituore vi
      Suomussalmi
      27
      944
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt