Sign In
Create Account
Back to top
 |
Chirurgia endoscopică a hipofizei
"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală. Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale. www.neurohope.ro |
buton non printable
Last Updated: Nov 11 2010 20:53, Started by
credit
, Nov 10 2010 15:38
·
0
0
#1
Posted 10 November 2010 - 15:38
|
Am facut in word un buton cu control toolbox care imi executa o comanda. Butonul este amplasat pe foaia de lucru word.
Cum sa procedez ca in momentul in care printez documentul word sa nu imi printeze si butonul? |
#2
Posted 10 November 2010 - 15:50
|
Nativ, in Word nu ai cum sa ii modifici proprietatea de vizibilitate in timpul printarii ca in Excel.
Poti sa faci altceva: 1. sa schimbi culoarea de fundal a butonului; sau 2. sa pui acel buton in toolbar (word 2003) sau in ribbon (word 2007); sau 3. sa pui un buton de printare in foaie ca printeaza documentul, dar in acelasi timp ascunde butoanele (necesita VBA). Eu te sfatuiesc sa utilizezi una din primele doua metode enumerate. |
#3
Posted 11 November 2010 - 09:44
|
Documentul word este o forma iar butonul despre care vorbeam nu face altceva decat sa-mi stearga campurile text din forma (clear). Aceasta forma va fi folosita de mai multe persoane si nu as vrea sa pun un buton transparent si nici sa pun butonul intr-un toolbar pentru ca ar trebui sa fac aceasta modificare pentru fiecare calculator care va utiliza forma. A treia varianta as alege-o dar nu stiu cum as putea sa scriu codul vba pentru o astfel de functie.
Ai putea sa ma ajuti cu codul? |
#4
Posted 11 November 2010 - 09:54
|
Uite aici codul putin ajustat:
Private Sub CommandButton1_Click() On Error GoTo err With ActiveDocument .Shapes(1).Visible = msoFalse .PrintOut Background:=False .Shapes(1).Visible = msoTrue End With Exit Sub err: MsgBox err.Description, vbOKOnly + vbInformation, "Eroare" End SubUite si o sursa: How to hide a “Print” commandbutton on a document form when a user clicks on it Edited by Sandstorm, 11 November 2010 - 09:55. |
#5
Posted 11 November 2010 - 10:09
|
Asta este comanda butonului.
Private Sub CommandButton1_Click() For i = 1 To 83 Activedocument.FormFields("Text" & i).TextInput.Clear Next i End Sub |
#6
Posted 11 November 2010 - 10:15
|
Incearca asa:
Private Sub CommandButton1_Click()
'in caz de eroare mergi la err
On Error GoTo err
'goleste continutul campurilor inserate
For i = 1 To 83
Activedocument.FormFields("Text" & i).TextInput.Clear
'printeaza documentul fara a afisa butoanele existente
With ActiveDocument
.Shapes(1).Visible = msoFalse
.PrintOut Background:=False
.Shapes(1).Visible = msoTrue
End With
Exit Sub
'procedura de eroare
err:
MsgBox err.Description, vbOKOnly + vbInformation, "Eroare"
End Sub
Din pacate nu l-am putut testa pentru ca nu pot sa stau acum sa creez un astfel de formulat.Daca tot sunt probleme, ataseaza aici acel formular (dupa ce elimini datele confidentiale) si vedem ce-o de facut. |
#7
Posted 11 November 2010 - 18:45
|
Gata am gasit cum se face. Pentru cine mai este curios poate sa vada aici procedura. http://word.mvps.org...PrintButton.htm
Este ok ce mi-ai zis tu numai ca trebuia ca butonul sa il bag intr-un text box si apoi sa scriu codul pe care mi l-ai zis. Multumesc o zi buna. |
#8
Posted 11 November 2010 - 18:51
|
Acel link ti-l dadusem si eu mai sus.
Dap, nu am fost atent, pt. ca in cod Shapes(1) se refera la textbox, iar tot ce e in textbox se sterge. |
#9
Posted 11 November 2010 - 20:53
|
Acel link ti-l dadusem si eu mai sus. Dap, nu am fost atent, pt. ca in cod Shapes(1) se refera la textbox, iar tot ce e in textbox se sterge. Da mersi mult, am inteles despre ce e vorba. Multumesc de ajutor. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2023 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.