Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
angela31 Profile
 | Femeie
24 ani
Buzau
cauta Barbat
24 - 60 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 17 ani
Postari: 2189
|
|
Source:
You must create a new macro. The entire text of the macro is:
Sub Print1stPageOnly()
'
' Print1stPageOnly Macro
'
'
Dim MyPath As String
Dim MyName As String
Dim Mydoc As Document
'let user select a path
With Dialogs(wdDialogCopyFile)
If .Display() <> -1 Then Exit Sub
MyPath = .Directory
End With
'strip quotation marks from path
If Len(MyPath) = 0 Then Exit Sub
If Asc(MyPath) = 34 Then
MyPath = Mid$(MyPath, 2, Len(MyPath) - 2)
End If
'get files from the selected path
'and insert them into the doc
MyName = Dir$(MyPath & "*.*")
Do While MyName <> ""
Set Mydoc = Documents.Open(MyPath & MyName)
Mydoc.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
Mydoc.Close wdDoNotSaveChanges
MyName = Dir
Loop
End Sub |
After you hit RUN, select the desired folder where you put all the documents of which you want to print the first page. After you will click the OPEN button, it will automatically start printing.
_______________________________________
|
|
| pus acum 10 ani |
|