Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Sfat achizitie sistem audio pentr...

tavan fals rigips

Ce preferați: produse mai scumpe ...

Demagnetizare (minimala) ori ba?
 Cum pot sa vad pe un proiector pr...

Joc Drone

Dropshipping

Sfat achizitie AC Gree Fairy vs P...
 MONITOR LG fara sonor !

Batalia pentru Bucuresti - ND, Fi...

Identificare font

problema ping in jocuri online
 Problema calculator

Samsung Galaxy A35

Sfat pentru aprinderea automata a...

Rfg crescut
 

buton non printable

- - - - -
Last Updated: Nov 11 2010 20:53, Started by credit , Nov 10 2010 15:38  
  ·  
  • Please log in to reply
8 replies to this topic

#1
credit
Posted 10 November 2010 - 15:38

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
Sandstorm
Posted 10 November 2010 - 15:50

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
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
credit
Posted 11 November 2010 - 09:44

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
Sandstorm
Posted 11 November 2010 - 09:54

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
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 Sub
Uite 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
credit
Posted 11 November 2010 - 10:09

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
Asta este comanda butonului.


Private Sub CommandButton1_Click()
For i = 1 To 83
Activedocument.FormFields("Text" & i).TextInput.Clear
Next i
End Sub

#6
Sandstorm
Posted 11 November 2010 - 10:15

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
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
credit
Posted 11 November 2010 - 18:45

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007
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
Sandstorm
Posted 11 November 2010 - 18:51

Sandstorm

    Member

  • Grup: Banned
  • Posts: 632
  • Înscris: 30.04.2009
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
credit
Posted 11 November 2010 - 20:53

credit

    Member

  • Grup: Members
  • Posts: 621
  • Înscris: 04.05.2007

View PostSandstorm, on 11th November 2010, 18:51, said:

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

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro
Back to Visual Basic

▶ 0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Forumul Softpedia
  2. → Professional Zone
  3. → Programming
  4. → Visual Basic
Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate