Forum Romania Inedit
Romania Inedit - Resursa ta de Fun
|
Nou pe simpatie:
princess79
 | Femeie
25 ani
Bucuresti
cauta Barbat
25 - 60 ani |
|
|
Forum Romania IneditReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
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!!!
|
|
| |
|
| #2 |
 pacriMembru GoldDin: Pitesti
|
|
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
_______________________________________
2b old & wise u have 2b young & stupid 1st.
|
|
| |
|
