Udskriv markeret område med makroknap

det er umiddelbart noget med at bruge

Selection.PrintOut

Kan du ikke prøve at optage en makro og se hvad den skriver?

Jeg har følgende script, men det har problemet at det bare printer ud (det markerede), men det åbner ikke dialogboxen således at der kan vælges bakke.

    Range("B1:P24").Select
    Selection.PrintOut Copies:=1, Collate:=True

For at få vist dialogboksen skal du bruge følgende:

Application.Dialogs(xlDialogPrint).Show

Den har også et argument, der hedder PrintWhat, men af en eller snden grund vil den ikke kendes ved i praksis.

Kan man putte et argument på der hedder print selected ?

Nope. Men du kan putte et argument på. Jeg kan bare ikke lige få det til at virke. Der findes i følge hjælpen et argument, der hedder Print_what, men hvis man prøver det, vil det alligevel ikke kendes ved det.

Må jeg spørge hvordan du finde det. Jeg har selvfølgelig objectbrowseren, men den kan jeg ikke rigtig finde ud af at bruge. Jeg er altså ikke helt med på hvordan man bygger det op, men det er jo nok et kapitel for sig. Jeg vil godt give dig point. Du kan jo ikke gøre for at Excel ikke virker som det var tiltænkt.

Brug hjælpen til VBA :-) Søg efter Dialogs og Arguments så kan du finde en liste over Built-in dialogs og deres tilhørende argumenter.

Fint jeg fandt en god liste over dialogboxe, bla. xlDialogPrint. Der er en række argumenter, bla. Selection. Hvordan får jeg denne knuttet til.

det er præcis, det, der er problemet. Af en eller anden grund vil Excel dialogboksene ikke kendes ved deres egne argumenter.

I princippet burde du kunne skrive

Application.Dialogs(xlDialogPrint).Show Selection:=True

men så brokker den sig ( i hvert fald hos mig) over at den ikke kender Named argument Selection.

Ja, jeg har nu prøvet alle mulige og umulige kombinationer af Selection og som du siger - Det virker sku ikke. Jeg må vist desværre give fortabt.

Håber du lytter med endnu: Problemet er at Excel ikke vil kendes ved de navngivne argumenter. Du er derfor nødt til at bruge argumentets position i stedet. Selection er 12. argument, og da du ikke ønsker at udfølde de første 11, skal dine kode se ud som følger:

Application.Dialogs(xlDialogPrint).Show , , , , , , , , , , , 1

Et står for den første valgmulighed i dialogboksen, og det er netop "Markeringen".

En meget nyttig add-in kan løse en del af dit ønske (+ en masse andre.
Jeg kan varmt anbefale ASAP Utilities. Free down-load her: http://www.asap-utilities.com/

Hilsen KOL

Tak jkrons. Du har reddet min dag. Det er jo selvfølgelig logisk nok, og så alligevel, men nu kender man princippet til en anden god gang.

Nemlig :-)