Besturingselement niet afdrukken

[ETuinstra]

Hallo,

ik heb een formulier gemaakt met daarop een aantal knoppen, die knoppen worden gebruikt om delen van een tekst wel of niet zichtbaar te maken. Als ik nu het bestand afdruk dan zie ik de knoppen wel staan op mijn papier, nou wil ik dat die knoppen niet worden afgedrukt kan iemand mij hier mee helpen want ik kom er niet uit.
Ik gebruik word 2000.

Met vr. gr. Eelke

 

[Relleboer]

gewoon printobject afvinken. of print op false zetten

 

[ETuinstra]

Hallo relleboer waar kan ik dit doen dan?

 

[Clararthur]

in Ontwerpmodus de button selecteren, en dan in de eigenschappen(via rechtermuisknop - eigenschappen) op zoek gaan naar 'Printobject'. Zet deze eigenschap dan op False.

 

[ETuinstra]

Als ik in de ontwerpmodus bij eigenschappen kijk dan zie ik niks met printen staan, bij VB is dit wel zo maar bij VBA bij mij niet. Iemand enig idee om op te lossen?

 

[Clararthur]

Probeer dan hetvolgende eens:
- selecteer button
- rechtermuis: besturingselement opmaken
- je krijgt nu 4 tab-bladen, selecteer het derde 'Kenmerken'
- je kan nu 'object afdrukken' uitvinken

 

[ETuinstra]

De oplossingen die jullie geven werken allemaal prima in Exel, ik ben bezig in word 2000 en daar staan die printobject optie's niet tussen. In exel is dit heel simpel in word moet je het dus gewoon afdrukken heb ik wel door.

 

[snb]

Word/menubalk/extra/opties/tabblad afdrukken/tekenobjekten uitvinken

 

[ETuinstra]

Dit werkt inderdaad wel maar het gaat om een behoorijk groot document waar behoorlijk wat tekenobjecten inzitten.

 

[snb]

Dan zul je voor het afdrukken de besturingselementen moeten verwijderen.

Sub tst()
  For Each sh In ActiveDocument.InlineShapes
    If sh.Type = 5 Then sh.Delete
  Next
End Sub

 

[ETuinstra]

Verwijderen is natuurlijk ook de oplossing niet.

Ik heb het knopje in een tekstvak gezet en het tekstvak kun je wel of niet tonen met afdrukken.

Private Sub oApp_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
'knop ontzichtbaar maken
ThisDocument.Shapes(3).Visible = msoFalse
End Sub

Private Sub oApp_WindowActivate(ByVal Doc As Document, ByVal Wn As Window)
'knop zichtbaar maken
ThisDocument.Shapes(3).Visible = msoTrue
End Sub

Zo kan het dus wel, in ieder geval bedankt voor de moeite en de tijd.

 

[snb]

Verwijderen is geen enkel bezwaar als je het bestand daarna niet opslaat/overschrijft.

 

[ETuinstra]

Hey Snb,

dat verwijderen kan wel als je het niet opslaat verder, maar dat was niet de oplossing die ik zocht.