Avatar billede jath08ac Forsker
21. januar 2016 - 13:44 Der er 9 kommentarer

Vis ikke CommandButton ved print + Userform Excel

Hej,

Jeg har en userform, hvor jeg har tilføjet en CommandButton, som er sat til at printe Userformen.

Dog bliverCommandButton vist på udskriften. Er der mulighed for at skjule den på printet.

Jeg har indsat følgende kode:

Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogPrinterSetup).Show
Me.PrintForm
End Sub

Pft.
Avatar billede natkatten Mester
21. januar 2016 - 14:09 #1
Klippet fra egen løsning:

Sub PrintArk()
' Ark med button. Print ikke denne.
    ActiveSheet.Shapes("CommandButton1").Visible = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.Shapes("CommandButton1").Visible = True
End Sub
Avatar billede ebea Ekspert
21. januar 2016 - 14:25 #2
Alternativ!
I din menulinje, vælg "Udvikler"
Vælg ikonet "Designtilstand"
Marker din print knap, og højreklik på den.
I egenskabsboksen (Properties) som fremkommer, vælg "PrintObject", klik der, og sæt den til "False"

Så kommer knappen ikke med på udprintet.
Avatar billede jath08ac Forsker
21. januar 2016 - 15:32 #3
#natkatten
Jeg får en fejl når jeg indsætter koden:

Fejlen vedr.
    ActiveSheet.Shapes("CommandButton1").Visible = False
Avatar billede jath08ac Forsker
21. januar 2016 - 15:34 #4
#ebea

Har også se, at man kunne ændre PrintObject.

Jeg kan bare ikke finde den, når jeg vælger properties.
Avatar billede ebea Ekspert
21. januar 2016 - 15:50 #5
Når du højre klikker på din Print knap i designtilstand, skal du vælge "egenskaber"
Og i den Properties Boks som fremkommer, vælger du et stykke ned af listen, "PrintObject", og sætter det til "False"
Avatar billede jath08ac Forsker
21. januar 2016 - 15:56 #6
Når jeg højre klikke på knappen i designmode, så kommer følgende valgmuligheder frem:
' Cut
' Copy
' Delete
' Properties
' View Code
' Align
' Make Same Size
' Bring Forward
' Bring Backward

Så jeg kan ikke vælge "Egenskaber"
Avatar billede ebea Ekspert
21. januar 2016 - 16:11 #7
Du skal vælge "Properties" = Egenskaber
Avatar billede jath08ac Forsker
21. januar 2016 - 18:46 #8
Det gør jeg også, og så dukker Properties op i venstre hjørne, hvor man ændre farve, ændre navnet på knappen m.v., men der kan jeg ikke finde PrintObject.
Avatar billede store-morten Ekspert
21. januar 2016 - 20:52 #9
Måske:
Private Sub CommandButton1_Click()
CommandButton1.Visible = False

Application.Dialogs(xlDialogPrinterSetup).Show
Me.PrintForm

CommandButton1.Visible = True
End Sub
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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