Kommandoknap for print.

en side

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True

2 sider

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True

Tryk ALT +F11

Vælg insæt modul

kopier disse 2 makroer derind

Public Sub EnSide()
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
 
End Sub

Public Sub ToSider()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
End Sub


Luk ved at trykke på øverste højre X

Tilbage på regnearket højreklikker du på en menulinie, vælg formular.

Træk en knap fra formularbjælken over på arket, tildel den en af makroen.

Gør det samme for den anden knap.

så skulle du være kørende.

Tak for det.

Som sædvanlig er du lynhurtig. Prøver om jeg kan få det til at funke. Tvivler ikke på at det gør når det kommer fra kabbak. Det er nok snarere modtageren som er problemet :-)

Hvis du er interesseret i point må jeg bede om et svar, men har en svag mistanke om at point ikke er det som driver værket :-)

et svar.

Point er godt nok, men det er rigtigt at prøve at knække de nødder, der kommer fra spørgerne, er nok det sjoveste.

Det virker....naturligvis  :-)

Kabbak er intet mindre end genial....

Kan desværre kun gi' 200 point. Svært fortjente hvert og et....

tak for point, men så svært var det ikke

Var så lidt. Ska' jo ikke betale for de point :-)

Er ikke svær at imponere. Var mit livs første macro og først anden gang jeg stifter bekendskab med komandoknapper.

GODT NYTÅR.

i lige måde