display pdf from byte array c# : Rotate individual pages in pdf application Library cloud html asp.net azure class 1200%20macro_examples30-part148

301
'set values that can be changed later
latestFile = fName
fileTime = FileDateTime(dirName & fName)
While fName <> ""
'loop until no more files
If FileDateTime(dirName & fName) > fileTime Then
'if more recent file found, update variables
latestFile = fName
fileTime = FileDateTime(dirName & fName)
End If
'query for next file
fName = Dir()
Wend
If latestFile = "" Then
'advise if no file found
MsgBox "There are no files in the directory"
Else
'Open the file
Workbooks.Open "C:\My Documents\" & latestFile
End If
End Sub
14.3.1.18 Counting Visible (Non
-
Hidden) Workbooks
The following function returns the number of visible (non
-
hidden) workbooks.  Please note it
assumes that there is only one window per workbook.
Function VisibleWorkbookCount()
Dim lngNumberofVisibleWorkbooks As Long
Dim bookCounter As Workbook
For Each bookCounter In Application.Workbooks
If Windows(bookCounter.Name).Visible = True Then
lngNumberofVisibleWorkbooks = _
lngNumberofVisibleWorkbooks + 1
End If
Next bookCounter
VisibleWorkbookCount = lngNumberofVisibleWorkbooks
End Function
Rotate individual pages in pdf - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
pdf rotate all pages; save pdf rotate pages
Rotate individual pages in pdf - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
how to reverse page order in pdf; rotate all pages in pdf and save
302
14.3.1.19 Extracting Values From Closed Workbooks
It is possible to extract values from closed workbooks by using Excel 4 macro statements like the
following:
x=ExecuteExcel4Macro("'C:\[NotOpen.xls]Sheet1'!R1C1")
x=ExecuteExcel4Macro("COUNTA('C:\[NotOpen.xls]Sheet1'!R1C1:R3C3)")
x=ExecuteExcel4Macro("AVERAGE('C:\[NotOpen.xls]Sheet1'!R1C1:R2C2)")
As indicated in help, there is no "=" in the argument string, you must use RC notation, and any
embedded quotes must be doubled.
The following is another way, which does not rely on Excel 4 macro code, but is somewhat
kludgy:
Sub GetClosedBookValue()
Dim theValue
'write a formula that refers to a cell on the closed workbook
Range("A1").Formula = _
"='D:\[MMULT_EX.XLS]Sheet1'!$A$1"
'update links
ActiveWorkbook.UpdateLink ("D:\MMULT_EX.XLS")
'extract the updated value and clear the formula
theValue = Range("A1").Value
Range("A1").ClearContents
End Sub
Additional extraction examples:
This extracts the value of a single cell"
x=ExecuteExcel4Macro("'C:\[NotOpen.xls]Sheet1'!R1C1")
This extracts the average of a cell range
x=ExecuteExcel4Macro("AVERAGE('C:\[NotOpen.xls]Sheet1'!R1C1:R2C2)")
As indicated in help, there is no "=" in the argument string, you must use R1C1 notation.  Also,
the single quotes and the brackets are needed.
14.3.1.20 Error 'The File Is Already Open...' 
-
Re
-
Registering Excel
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
doc.Save(outPutFilePath). How to VB.NET: Delete Consecutive Pages from PDF. doc.Save(outPutFilePath). How to VB.NET: Delete Specified Pages from PDF.
pdf rotate single page reader; pdf rotate just one page
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
Page: Insert PDF Pages. |. Home ›› XDoc.PDF ›› VB.NET PDF: Insert PDF Page. Add and Insert Multiple PDF Pages to PDF Document Using VB.
pdf expert rotate page; change orientation of pdf page
303
If you get the above error message when you open an Excel file from the Windows Explorer, you
may need to re
-
register Excel.  You can force Excel to re
-
register it self by using /regserver on the
Run command.
C:\path_to_excel\Excel.exe /regserver
Excel will rewrite all of the registry keys with their default values, then quit.
14.3.2 SELECTING AND OPENING WORKBOOKS
14.3.2.1 Using The Built
-
In GetSaveAsFilename Dialog
The following illustrates how to use theGetSaveAsFilename built
-
in dialog to return the full
name and path, just the filename, and just the path.  Two functions are used to extract the
filename and the path.  In this case, the user is restricting the displayed files to just those with a
CSV filetype.
Sub Getting_FileName_And_Path()
Dim fileAndPath As String
'display the built
-
in dialog, with an initial filename suggested
'and with only CSV files being displayed for selection
fileAndPath = Application.GetSaveAsFilename( _
InitialFilename:="facility", _
fileFilter:="Comma Separated Files (*.csv), *.csv", _
Title:="Choose a destination directory")
'if cancel selected, halt the macro
If fileAndPath = False Then End
'display the different values
MsgBox "Files will be saved to " & fileAndPath
MsgBox "The destination directory is " & _
PathOnly(fileAndPath)
MsgBox "The file name is " & NameOnly(fileAndPath)
End Sub
Function PathOnly(ByVal anyStr) As String
Dim I As Integer, J As Integer
I = Len(anyStr)
'check each character for a \ working backwards
For J = I To 1 Step 
-
1
If Mid(anyStr, J, 1) = "\" Then
'when a match is found set the function to the text to the left and exit
C# PDF Page Insert Library: insert pages into PDF file in C#.net
how to merge PDF document files by C# code, how to rotate PDF document page, how to delete PDF page using C# .NET, how to reorganize PDF document pages and how
save pdf after rotating pages; pdf save rotated pages
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
doc.Save(outPutFilePath); Demo Code: How to Delete Consecutive Pages from PDF in C#.NET. Demo Code: How to Delete Specified Pages from PDF in C#.NET.
how to rotate a pdf page in reader; permanently rotate pdf pages
304
PathOnly = Left(anyStr, J 
-
1)
Exit Function
End If
Next
End Function
Function NameOnly(ByVal anyStr) As String
Dim I As Integer, J As Integer
I = Len(anyStr)
'check each character for a \ working backwards
For J = I To 1 Step 
-
1
If Mid(anyStr, J, 1) = "\" Then
'when a match is found set the function to the text to the right and exit
NameOnly = Mid(anyStr, J + 1)
Exit Function
End If
Next
End Function
The following is another way to get just the path if the full path and filename are passed to a
function.
Function FilePathOnly(FullFileName As String) As String
Dim Pos As Integer
Dim OldPos As Integer
On Error GoTo EndFunction
Pos = 1
While Pos <> 0
OldPos = Pos
Pos = InStr(Pos + 1, FullFileName, "\")
Wend
FilePathOnly = Left(FullFileName, OldPos 
-
1)
Exit Function
EndFunction:
FilePathOnly = ""
End Function
14.3.2.2 Displaying The Built
-
In File Selection Dialog To Have The User
Select A File
The following displays the built
-
in file selection dialog and returns the name of the file and the
path to a module level variable called fName
'declare this variable at the top of the module
Dim fName As String
Sub Main_Routine()
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
Individual Products. XDoc.SDK for .NET. XImage.SDK for Page. |. Home ›› XDoc.Tiff ›› C# Tiff: Rotate Tiff Page. & pages edit, C#.NET PDF pages extract, copy
saving rotated pdf pages; rotate one page in pdf
VB.NET PDF - WPF PDF Viewer for VB.NET Program
Individual Products. XDoc.SDK for .NET. XImage.SDK for .NET. Page: Replace PDF Pages. Page: Move Page Position. Page: Copy, Paste PDF Pages. Page: Rotate a PDF
save pdf rotated pages; how to reverse pages in pdf
305
Select_A_File
MsgBox fName
End Sub
Sub Select_A_File()
Dim sFile, I As Integer
'display dialog asking user to select a file
sFile = Application.GetOpenFilename _
("Files (*.xls),*.xls", , "Select A File")
'check to see if cancel selected in the box
If sFile = "False" Then
MsgBox "No file selected.  Activity halted."
End
End If
fName = sFile
End Sub
The following variation of the above allows the user to select multiple files:
'declare this variable at the top of the module.  As it is Variant,
’it can hold an array of filenames
Dim fileList As Variant
Sub Main_Routine()
Dim I As Integer
'call subroutine that displays dialog
Select_A_File
'display the file list
For I = 1 To UBound(fileList)
MsgBox fileList(I)
Next
End Sub
Sub Select_A_File()
Dim sFile, I As Integer
'display dialog asking user to select multiple files by setting
'the last argument to True
fileList = Application.GetOpenFilename _
("Files (*.xls),*.xls", , _
"Select An Invoice File", , True)
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
C#.NET PDF Library - Copy and Paste PDF Pages in C#.NET. Easy to C#.NET Sample Code: Copy and Paste PDF Pages Using C#.NET. C# programming
pdf rotate single page and save; how to rotate page in pdf and save
C# PDF Library SDK to view, edit, convert, process PDF file for C#
load, create, convert and edit PDF document (pages) in C# other file formats; merge, append, and split PDF files; insert, delete, move, rotate, copy and
rotate pdf page by page; reverse page order pdf online
306
'check to see if cancel selected in the box, which cause this to be an error
On Error Resume Next
If fileList(1) = "" Then
MsgBox "No file selected.  Activity halted."
End
End If
'turn off error checking
On Error GoTo 0
End Sub
14.3.2.3 Using The Excel File Open Dialog To Open Multiple Files
You can use theMultiSelect option of theApplication.GetOpenfileName function to display
the Excel open file dialog and allow multiple files to be selected.
When theMultiSelect option is invoked, the function returns an array of filenames, even if only
one is selected.  The dialog does not open any files 
-
it just returns the array of filenames.  You
could then loop through the list of filenames, performing whatever actions are necessary.  The
following example illustrates this:
Sub Open_Files()
'file to store list must be of type variant
Dim fList As Variant, I As Integer
'displays the dialog.
fList = Application.GetOpenFilename(MultiSelect:=True)
'check and see if cancel selected, which returns a boolean variable
If TypeName(fList) = "Boolean" Then
MsgBox "No files selected. Activity halted."
Exit Sub
End If
'Loops through every file that is selected and open
For I = 1 To UBound(fList)
'open the workbook, but do not update links by setting the
'2nd argument to false
Workbooks.Open fList(I), False
Next
End Sub
307
14.3.2.4 Setting The Default GetOpenFilename Directory
The default drive that appears when you useApplication.GetOpenFilename dialog is the
default directory when appears when you select File, Open.  The following sets this to a alternate
drive and directory, displays theApplication.GetOpenFilename dialog, and then sets the drive
and directory back to the original setting.
Sub ExampleOfSettingDirectoryAndDrive()
Dim fNameAndPath As String
Dim currentDir As String
Dim currentDrive As String
'store the current settings
currentDir = CurDir()
currentDrive = Left(currentDir, 1)
'set a drive and directory you want to appear when the dialog is displayed
ChDrive "C"
ChDir "C:\Temp"
fNameAndPath = Application.GetOpenFilename
'set the drive and directory back to the original setting
ChDrive currentDrive
ChDir currentDir
End Sub
14.3.2.5 Finding The Last Modified File In A Directory
The following will return the last modified file in a directory:
Sub test()
MsgBox LastModifiedFile("C:\", "*")
End Sub
Function LastModifiedFile _
(sDirPath As String, fType As String) As String
Dim sFile As String
Dim fileDate As Date
Dim fName As String
fName = Dir(sDirPath & "*." & fType)
While fName <> ""
If FileDateTime(sDirPath & fName) > fileDate Then
sFile = fName
fileDate = FileDateTime(sDirPath & fName)
End If
fName = Dir()
Wend
If sFile <> "" Then
LastModifiedFile = sFile
308
End If
End Function
14.3.2.6 Chdrive And Network Paths
If you want to change the current directory to a UNC specified location, the following API
function will do this:
Private Declare Function SetCurrentDirectoryA Lib _
"kernel32" (ByVal lpPathName As StringAs Long
Sub SetUNCPath(sPath As String)
Dim lReturn As Long
lReturn = SetCurrentDirectoryA(sPath)
If lReturn = 0 Then _
MsgBox "Error setting path."
End Sub
14.3.2.7 Using FileSearch Instead Of The DIR Command
TheFileSearch feature is an alternative to theDir command and having to recurs through
subdirectories.
Sub GettheWholedirectory()
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "*.*"
.MatchTextExactly = False
.FileType = msoFileTypeAllFiles
.Execute
'Run a second time to insure correct listing
'As there is a bug with FileSearch on its first run
If .Execute > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
Cells(i, "A").Value = .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub
If you useFileSearch and sort by the last modified date,FileSearch needs to be run once in
order to "wake it up" to run correctly.  First do a dummyFileSearch.  This dummyFileSearch
helps insure that the results of the secondFileSearch are correct.  Do not do a dummy
309
FileSearch on a large directory..  This will speed up the process by not wasting time (finding &
sorting).  The following is an example of a dummy search.
With Application
.NewSearch
.LookIn = "C:\"
.FileName = "*.jnk"
.Execute SortBy:=msoSortBySize
End With
'Now do your real search
Even though there are no matching files to find in the above routine, it is good enough to get the
function working correctly the second time around.
14.3.2.8 Opening All The Files In A Directory
When you call Dir() with a file spec, it starts looking at file names from the beginning. When
you call it a 2nd time with no file spec, it uses the file spec that you supplied on the first call.
When there are no more files that match the spec (assuming it contains wild cards), it returns an
empty string instead of a file name.  But you may find that Dir() still doesn't work correctly if you
open a workbook, change it, and save it before going on to the next one.  The save operation
causes confusion re which files have been read and which haven't.
The usual approach is to use the loop to get the file names and put them in an array. You don't
open and process them in this loop. Then you use a 2nd loop to retrieve each name from the array
and process the file.
The following code will open all the files in a directory:
Sub Open_Files_In_A_Directory()
Dim fileList() As String
Dim fName As String
Dim fPath As String
Dim I As Integer
'define the directory to be searched for files
fPath = "C:\my files\"
'build a list of the files
fName = Dir(fPath & "*.xls")
While fName <> ""
'add fName to the list
I = I + 1
ReDim Preserve fileList(1 To I)
fileList(I) = fName
310
'get next filename
fName = Dir()
Wend
'see if any files were found
If I = 0 Then
MsgBox "No files found"
Exit Sub
End If
'cycle through the list and open
'just those with the letter Z in the filename
'insure the following way is a case insensitive test
For I = 1 To UBound(fileList)
If InStr(1, fileList(I), "Z", 1) > 0 Then
Workbooks.Open fPath & fileList(I)
End If
Next
End Sub
14.3.2.9 Getting Values From A Closed Workbook
The following will return the values on a sheet in a closed workbook and write them to the same
range on the active worksheet:
Sub test()
GetValuesFromAClosedWorkbook "C:", "Book1.xls", _
"Sheet1", "A1:K30"
End Sub
Sub GetValuesFromAClosedWorkbook(fPath As String, _
fName As String, sName, cellRange As String)
With ActiveSheet.Range(cellRange)
.FormulaArray = "='" & fPath & "\[" & fName & "]" _
& sName & "'!" & cellRange
.Value = .Value
End With
End Sub
14.3.2.10 Changing To A Floppy Drive
The following example illustrates how to change the current drive to the floppy drive and handle
several likely errors:
Sub Drive_Change()
On Error GoTo eTrap
ChDrive "A"
Documents you may be interested
Documents you may be interested