Udskriftsmakro - MS Excel

har du husket at sætte knappens TakeFocusOnClick property til False?

Det har jeg ikke. Koden ser således ud:

Range("D1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Hvor skal TakeFokus.... sættes ind henne? I øvrigt giver ovennævnte kode en udskrift for alle 16 ark, selvom jeg kun er interesseret i en udskrift for det aktuelle ark. Hvor ligger denne lille fejl?

TakeFocus skal sættes på selve knappen som afspiller makroen. Jeg forudsætter at du bruger en kommandoknap for kontrolelement menuen.

Hvorfor har du så mange Range(Selection, Selection.End(xlDown)).Select linier. en burde vel være nok? På denen måde tror jeg at Excel opfatter detsom om du vælger flere områder, og Excel kan kun udskrive et område på hver side.

Grunden til at der er 3 Selection.End(xlDown))skyldes at der er 2 blanke linier på arket.

Jeg prøver at ændre knappen.

Hvordan ændre man knappen? Hvor skriver man koden og hvordan ser denne kode ud?

Ingen kode. Højreklik på knappen og vælg Egenskaber. En af disse skulle gerne hedde TakFocusOnClick. Sæt den til False og se om det hjælper.

Fik du det til at virke?

en kollega kom med en løsning hvor der blev brugt noget counta kode. Tak for hjælpen og dine point er på vej.

ljk