Forum Romania Inedit
Romania Inedit - Resursa ta de Fun
|
Lista Forumurilor Pe Tematici
|
Forum Romania Inedit | Reguli | Inregistrare | Login
POZE FORUM ROMANIA INEDIT
Nu sunteti logat.
|
Nou pe simpatie:
bruneta99 la Simpatie.ro
 | Femeie
25 ani
Satu Mare
cauta Barbat
25 - 50 ani |
|
|
truca35
Membru Gold
Din: Iasi
Inregistrat: acum 16 ani
|
|
este o comanda de reset a "page setup" ?
acum vreau sa listez documentul intr-un mod si dupa ce il inchid sa se reseteze la default?
_______________________________________
A fi om e lucru mare a fi porc nu e de mirare!!!
|
|
| pus acum 9 ani |
|
pacri
Membru Gold
 Din: Pitesti
Inregistrat: acum 19 ani
|
|
Foloseste asta:
##############################
Option Explicit
Sub ClearPrintArea()
Dim ws As Worksheet
Dim msg As String, _
orgWs As String
msg = "Esti sigur(a) ca vrei sa stergi zona de imprimat?"
If MsgBox(msg, vbYesNo) = vbNo Then Exit Sub
Application.ScreenUpdating = False
orgWs = ActiveSheet.Name
For Each ws In ThisWorkbook.Worksheets
ws.Activate
ActiveSheet.PageSetup.PrintArea = ""
Next ws
Sheets(orgWs).Select
Application.ScreenUpdating = True
End Sub
############################
Depinde cum vrei sa o folosesti. La buton sau la worksheet..
Ramane la latitudinea ta
Modificat de pacri (acum 9 ani)
_______________________________________
2b old & wise u have 2b young & stupid 1st.
|
|
| pus acum 9 ani |
|