Butterfly Ekspert
15. juni 2020 - 11:54 Der er 2 kommentarer og
1 løsning

Udskrift område, hvis

Hej
Jeg har dette udskriftsområde
Range("A1:C20").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$C$20"

Men vil gerne have dette udskrift område i stedet
Range ("A1:C3") + ("A-noget:C-noget"), det er de rækker hvor C = værdien i M1

Håber det er forståeligt? Kan man det?
finb Ekspert
15. juni 2020 - 12:16 #1
utestet:
ActiveSheet.PageSetup.PrintArea = union ( Range ("A1:C3") , ("A-noget:C-noget"))
L_Amtoft Juniormester
16. juni 2020 - 13:57 #2
hvis noget i A-noget og C-noget er det samme tal er der tale om en række.

jeg kan ikke helt komme i mål, måske du eller andre kan færdig gøre det. Jeg har lavet 2 indtastningsceller en til A og en til C, disse har jeg samlet i en tredje celle.
Jeg får det desværre ikke printet samlet, men på to sider  :-(

Sub printarea()
    Sheets("ark3").Select
    Range("A1").Select

' Men vil gerne have dette udskrift område i stedet
' Range ("A1:C3") + ("A-noget:C-noget"), det er de rækker hvor C = værdien i M1

  Range("K2").Select          ' formel i K2: ="A"&M1&":C"&N1
' i celle M1 indtastes A-værdien og i celle N1 indtastes C-værdien
  printes = ActiveCell
       
'    Range("A1:C3,A4:C8").Select
'    Range("A1:C3").Select
    ActiveSheet.PageSetup.printarea = "$A$1:$C$3"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
   
    ActiveSheet.PageSetup.printarea = printes
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
    IgnorePrintAreas:=False
   
    Range("I1").Select

End Sub
Butterfly Ekspert
23. juni 2020 - 11:58 #3
Mange tak for hjælpen
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
ATP har bygget it-system til udbetaling af feriepenge på tre måneder: "Mange har arbejdet nat og weekender for at nå det"
Interview: ATP-medarbejdere har måttet droppe sommerferien og arbejde om natten, men nu er løsningen til udbetaling af danskernes indefrosne feriemidler klar. "Lige nu har vi 300.000 i kø, og der er en ventetid på omkring to timer," siger ATP-underdirektør Jesper Juel-Helwig. Bliv klogere på, hvordan ATP har skabt den nye løsning på tre måneder.
Computerworld
Ups!: Gammelt fjernsyn lagde internetforbindelsen ned i hel landsby i halvandet år
I halvandet år var en hel landsby i Wales plaget af elendig bredbåndsforbindelse, som begyndte hver dag klokken syv om morgenen. Teknikere kæmpede med at løse mysteriet, men lige meget hjalp det. Årsagen viste sig at være et brugt tv, som en af byens familier havde taget i brug.
CIO
Torben Fabrin og Arla måtte på få dage omstille hele deres produktion da coronaen ramte
Da coronaen ramte verden måtte mejerigiganten Arla på få dage omstille sin produktion. Samtidig voksede salget massivt til supermarkeder mens institutioner og restauranter gik næsten i stå. Hør hvordan Arla kom gennem krisen ved blandt andet være klar med realtime analytics.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Få overblikket: Her er Gartners vurdering af 16 førende CRM-leverandører
Den teknologiske udvikling skaber pt. en massiv omstilling inden for kundeservice. Samtidig muliggør teknologien også en konsolidering, som igen stiller nye krav til moderne CRM-systemer. Især kunstig intelligens og muligheden for digitale kanaler står højt på kundernes liste. I dette whitepaper kan du derfor læse om analysevirksomheden Gartners research af 16 leverandører inden for CRM og dermed få et overblik over det stadigt mere komplekse landskab.