Telefonszámunk: 1-472-0679

[Resolved] VBA userform felületről indított nyomtatás

Kezdőlap Fórumok Excel programozás [Resolved] VBA userform felületről indított nyomtatás

Topic Resolution: Resolved
5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • #10483
    Gojo-Mann
    Felhasználó

      Sziasztok,
      Az alábbi témában szeretném kérni s segítségeteket.
      Próbálom röviden leírni:
      Van egy excel, megnyitáskor az excelt a háttérben nyitja userformot jelenít meg, Ez workbook-ba van bekódolva.
      Userformon van egy image terület, ahová a megfelelő gomb lenyomásával csinál egy ideiglenes képet, amit megjelenít az image területen.

      Private Sub OptionButton7_Click() ‘heti összegzett kimutatás
      Set CurrentChart = Sheets(„WIP_heti”).ChartObjects(1).Chart
      CHname = ThisWorkbook.Path & „\temp.gif”
      CurrentChart.Export Filename:=CHname, FilterName:=”GIF”
      Image1.Picture = LoadPicture(CHname)
      Kill CHname
      End Sub

      Na erre az userformre szeretnék egy command button-t, ami kinyomtatja nekem a képet, olyat írtam, hogy az egész userform felületet nyomtassa de olyat nemtudok, hogy csak az image területet nyomtassa. Úgy lenne a sajtossonkás, ha nyomtatás előtt megkérdezné, hogy A3-A4 álló vagy fekvő.

      Segítségeteket előre is köszönöm!

      #10503
      verax
      Felhasználó

        Szia Gojo-Mann!

        Két sorral elintézném a nyomtatást.

        Sheets("WIP_heti").ChartObjects(1).Activate
        ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,TRUE)"

        Az elsővel kijelölném a diagramot, a másodikkal kérdés nélkül küldeném nyomtatásra.

        üdvözlettel
        verax

        #10504
        Gojo-Mann
        Felhasználó

          Szia,

          Ha más megoldást nem találok, ezzel fogok élni, mert így konkrétan a chartra hivatkozok és azt nyomtatja ez szuper.
          A gond az, hogy több gombom van egy felületen cc 10 cmdbutton, amik ugyan arra az egy userformon lévő image1-területre teszik a képet.
          Ezért úgy lenne a jó, ha egy nyomtatási gomb lenne és az aktuálisan kijelölt chartot nyomtatná.

          Így maximum minden kimutat gomb mellé rakok egy print gombot is, ami az ahhoz tartozó kimutatásra mutat.

          Ezért köszönöm a tanácsot, ezzel tudok élni egy darabig, később pedig úgyis monitoron lesz csak nézve és nem kell nyomtatni semmit 🙂

          Köszönöm!

          #10505
          verax
          Felhasználó

            Szia Gojo-Mann!

            Bármelyik parancsgomb írja át Image1 vezérlő Picture tulajdonságát, egyúttal tárold el a kép forrására való hivatkozást! Nyomtatás előtt így mindig tudni fogod, hogy melyik diagramot kell nyomtatni.

            üdv’
            verax

            #10523
            Gojo-Mann
            Felhasználó

              Szia,

              Na most ez van:
              Private Sub Nyomtatás_Click()
              If ComboBox1 = „Január” Then
              Sheets(„Cseppentés01”).ChartObjects(1).Activate
              ExecuteExcel4Macro „PRINT(1,,,1,,,,,,,,2,,,FALSE,,TRUE)”
              End If
              If ComboBox1 = „Február” Then
              Sheets(„Cseppentés02”).ChartObjects(1).Activate
              ExecuteExcel4Macro „PRINT(1,,,1,,,,,,,,2,,,TRUE,,TRUE)”
              End If
              End Sub

              Már csak azt kellene neki mondanom, hogy fekvőbe nyomtasson. Esetleg lehet úgy, is hogy kérdés nélkül ezt tegye? Ha nem max felhozná, és én ráklikkelnék, hogy fekvő legyen. Ebben is tudnál segíteni? Lassan már jövök 1 kólával Neked 😀

              Köszönöm!

            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.