display pdf from byte array c# : Rotate individual pages in pdf reader control Library platform web page .net wpf web browser 1200%20macro_examples31-part149

311
Exit Sub
eTrap:
If Err.Number = 68 Then
MsgBox "Please Close Drive Door or put in disk"
Resume
ElseIf Err.Number = 70 Then
MsgBox "Permission denied. Please remove write
-
protection."
Resume
ElseIf Err.Number = 71 Then
MsgBox "Disk not ready. Please insert a disk."
Resume
Else
MsgBox "Drive can not be accessed.  Activity halted."
End
End If
End Sub
14.3.2.11 Open A File Only If No One Else Has It Open
The following will open a file only if it not open in write mode by someone else.
Function OpenFile(fName As StringAs Boolean
On Error GoTo NotOpen
Set wb = Workbooks.Open(FileName:=fName, notify:=False)
On Error GoTo 0
OpenFile = True
Exit Function
NotOpen:
End Function
14.3.3 COPYING, MOVING, RENAMING, AND DELETING
14.3.3.1 Copying, Moving, And Renaming A File Without Opening It
the following illustrates how to copy a file without first opening it:
Dim oldFile As String
Dim newFile As String
'define the source file and the destination file
oldFile = "c:\temp\book2.xls"
newFile = "c:\active\book2.xls"
'this does the actual copying
FileCopy oldFile, newFile
Please note that you do not get any warning when you are over
-
writing an existing file with
FileCopy.  If you want to insure that you are not over
-
writing a file then use the following before
theFileCopy statement:
Rotate individual pages in pdf reader - 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#
rotate pdf pages in reader; reverse pdf page order online
Rotate individual pages in pdf reader - 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 rotate just one page in pdf; save pdf rotated pages
312
If Dir(oldFile) <> "" Then
MsgBox "File " & oldFile & " already exists.  " & _
"File not copied."
End
End If
If you want to move the file, then use the following code:
Dim oldFile As String
Dim newFile As String
'define the files
oldFile = "c:\temp\book2.xls"
newFile = "c:\active\book2.xls"
'this does the move
Name oldFile As newFile
The directories for the file must be on the same drive.  If they are on different drives, then you
must useFileCopy and then delete the original using aKill statement as illustrated later in this
section.
If the file exists in the destination directory, you will get an error message.  You can determine if
the file exists by using statements like the following:
If Dir(newFile) Then
'actions to take if file exists in destination directory
End If
For example, you could delete the existing copy of newFile before moving oldFile by using the
following statement in the aboveIf..End If statement
Kill newfile
If you want to rename a file, then just specify the same path when you use the Name statement:
Dim oldName As String
Dim newName As String
oldName = "c:\temp\book2.xls"
newName = "c:\temp\studies.xls"
Name oldFile As newFile
14.3.3.2 Using FileCopy To Copy Files Or Workbooks
The following routine shows how to copy all the files in one directory to another without
opening and re
-
saving the files
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 reverse page order; rotate pdf 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; rotate all pages in pdf
313
Sub CopyAllXLS()
Dim fName As String
fName = Dir("d:\*.xls")
Do
FileCopy "d:\" & fName , "d:\temp\" & fName
fName = Dir()
Loop Until fName = ""
End Sub
14.3.3.3 How To Delete A File
If you want to delete a file once you are done with it, then use aKill statement. Please note that
you can not undo such a delete, and the file must not be open If you want to delete a file but
be able to undo the delete, then see the topic "Deleting Files And Directories So That You Can
Undelete Them"
The following illustrates how to use a Kill statement.
If Dir("C:\Fidelio\Quotes\temp.xls") <> "" Then _
Kill "C:\Fidelio\Quotes\temp.xls"
In the above example, theDir() statement is used to confirm that the file exists.  If you don't do
this and the file does not exist, you will get an error message.  You could also use statements like
the following, which would handle an error result with displaying any message:
'Turn on error handling so that error messages are not displayed
On Error Resume Next
'delete the file
Kill "C:\Fidelio\Quotes\temp.xls"
'turn off error handling
On Error GoTo 0
The advantage of the first approach is that you do not have to turn back on an error handling
statement that may already be set.
You can also use wildcards with theKill statement:
Kill "C:\MyFiles\*.Prn"
14.3.3.4 Getting Document And File Properties
Visual Basic provides a number of functions that return information on a file:
FileDateTime("C:\Assistnt\book1.xls")
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
how to rotate pdf pages and save; pdf rotate single page and save
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.
rotate pdf page and save; save pdf rotate pages
314
'returns the date and time last saved (if the file is open it returns that time)
FileLen("C:\Assistnt\book1.xls")
'returns the file size in bytes
The following code will list the different properties of a workbook and their values, if they are
numeric or text.  Typical properties are the Author, subject, comments, creation date, etc.  Some
properties don't apply but will appear anyway.
Sub ListProperties()
Dim rw, p
rw = 1
'turn on error handling as some properties can't be written to a cell
On Error Resume Next
'loop through each property and list it in the worksheet
For Each In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = rw
Cells(rw, 2).Value = p.Name
Cells(rw, 3).Value = p
rw = rw + 1
Next
'auto fit the columns for easy reading
Columns("a:c").AutoFit
End Sub
14.3.3.5 Deleting Files And Directories So That You Can Undelete Them
TheKill method of Visual Basic deletes a file, but you can not undelete them as the file does not
go to Windows 95's Recycle Bin 
-
it is permanently removed.
If you want to put the file in the Recycle Bin you have to use APIs.  The following approach
even deletes entire directory structures.
'place the following at the top of a module
Const FO_DELETE = &H3&
Const FOF_ALLOWUNDO = &H40&
Const FOF_NOCONFIRMATION = &H10&
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
C# TIFF: How to Rotate TIFF Using C# Code in .NET Imaging
Individual Products. XDoc.SDK for .NET. XImage.SDK for .NET. Edit. Insert Pages into Tiff File. Delete Tiff Pages. Move Tiff Page Position. Rotate a Tiff Page. Extract
rotate pages in pdf and save; how to rotate a pdf page in reader
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
rotate single page in pdf reader; rotate pdf page by page
315
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type
'the following two statements should each be on a single line
Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory"
(hpvDest As Any, hpvSource As AnyByVal cbCopy As Long)
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias
"SHFileOperationA" (lpFileOp As AnyAs Long
'all of the above code should be at the top of your module
'the following illustrates how to call the delete procedure and delete a file
Sub Test()
ShellDelete "c:\test.txt"
End Sub
'this is the procedure that does the deletion
Sub ShellDelete(SrcFile As String)
Dim result As Long
Dim lenFileop As Long
Dim foBuf() As Integer
Dim fileop As SHFILEOPSTRUCT
lenFileop = LenB(fileop)
ReDim foBuf(1 To lenFileop)
With fileop
.hwnd = 0
.wFunc = FO_DELETE
.pFrom = SrcFile & Chr(0) & Chr(0)
.fFlags = FOF_NOCONFIRMATION + FOF_ALLOWUNDO
.lpszProgressTitle = "" & Chr(0) & Chr(0)
End With
Call CopyMemory(foBuf(1), fileop, lenFileop)
Call CopyMemory(foBuf(19), foBuf(21), 12)
result = SHFileOperation(foBuf(1))
End Sub
If you want to delete the active file, you must first close it.  The following illustrates this
approach
Sub Delete_Active_File()
Dim iResponse As Integer
Dim fPathName As String
'get the path to the file
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
permanently rotate pdf pages; rotate one page in pdf
C# PDF: PDF Document Viewer & Reader SDK for Windows Forms
Rotate270: Rotate the currently displayed PDF page 90 degrees counterclockwise. for you to create and add a PDF document viewer & reader in Windows
rotate individual pages in pdf; pdf reverse page order online
316
fPathName = ActiveWorkbook.Path
'if not path, the file has not been saved
If fPathName = "" Then
MsgBox "The file has not been saved"
Exit Sub
End If
'add the file name to the path
fPathName = fPathName & "\" & ActiveWorkbook.Name
'get user confirmation to delete the file
iResponse = MsgBox("Do you wish to delete " _
& fPathName & "?", vbOKCancel)
'exit if cancel selected
If iResponse = vbCancel Then Exit Sub
'delete the file
ShellDelete fPathName
'confirm the deletion back to the user
If Dir(fPathName) = "" Then
MsgBox fPathName & " was deleted"
Else
MsgBox fPathName & " was not deleted"
End If
End Sub
14.3.4 SAVING FILES AND WORKBOOKS
14.3.4.1 Getting Just the File Name
If you have run a directory listing, you will end up with full file names. For example:
C:\My Documents\ABC.xls
If you want to get just the file name, then use a function like the following:
Function JustFileName(strFullPath As String) As String
JustFileName = Mid(strFullPath, InStrRev(strFullPath,
"\") + 1, 255)
End Function
317
14.3.4.2 Eliminating The File Exists... Message When Using The SaveAs
Method
To eliminate the above message when you useSaveAs to replace an existing file, put the
following statement ahead of theSaveAs statement
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "MyBook.Xls"
If you want future alert messages to appear as your macro runs, use the following after the
SaveAs statement:
Application.DisplayAlerts = True
14.3.4.3 Saving A File In A New Directory With A New Name
The following code can be used to save a file either with a new name or in a new directory, or
both.  It a file exists in the directory by the name specified, it is replaced without an alert.  The
following brings up the standard Excel file save as dialog box.  This also allows selection of the
directory using the mouse.
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
If fileSaveName <> False Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fileSaveName
Application.DisplayAlerts = True
End if
If you want to make certain the user wants to replace an existing file and that the file is saved,
then use code like the following, which loops until the user specifies an acceptable file name.
The following procedure uses a function to determine if the user wants to replace an existing file
Sub SaveExample()
Dim number As Long
Dim fileSaveName As Variant
'loop until the file is saved
Do
'get a name and directory from the user
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Excel Files (*.xls), *.xls")
'if cancel not selected check if file can be replaced
'bReplace returns either True or False
318
If bReplace(fileSaveName) and fileSaveName <> False Then
'turn off warning and then turn back on after saving
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fileSaveName
Application.DisplayAlerts = True
'exit loop since file has been saved
Exit Do
End If
Loop
End Sub
Function bReplace(fName) As Boolean
If Dir(fName) <> "" Then
'if the file exists confirm replacement
If MsgBox("Do you wish to replace " _
& fName & "?", vbYesNo) = vbYes Then
'if Yes clicked, return a True value
bReplace = True
Else
'if No clicked return a False value
bReplace = False
End If
Else
'If file doesn't exist, return a True value
bReplace = True
End If
End Function
14.3.4.4 How To Save A Workbook In Excel 5 Format
Workbooks saved in Excel 5 format from Excel 97/2000 will result in the following message
being displayed when a user tries to open them in Excel 5:  "Can't find project or library".  The
following routine illustrates how to solve this problem:
Sub SaveWithoutLibraryReference()
Dim As Object
For Each R In ActiveWorkbook.VBProject.References
If R.Description = "OLE Automation" Then
ActiveWorkbook.VBProject.References.Remove R
End If
319
Next
End Sub
14.3.4.5 Make File Saving Mandatory
You can do this with the Workbook_BeforeClose event procedure.  Put this code in the
ThisWorkbook code module (not a standard code module).
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then
Cancel = Not ThisWorkbook.Saved
MsgBox "You must save the file before closing it"
End
End Sub
14.3.4.6 Saving A Backup Copy Of A File
If you use theSaveCopyAs method, you can save a backup copy of the file but not modify any
file links that exist to the file:
ActiveWorkbook.SaveCopyAs "C:\book2.xls"
14.3.5 CSV AND ASCII FILES
14.3.5.1 Displaying A Dialog To Have The User Select A CSV File
The following example shows how to display the built
-
in file open dialog box to have the user
select a CSV file, have the procedure open the file and then process the file.
Sub SelectCSV()
Dim sFilter As String
Dim sTitle As String
Dim sFile As Variant
'set variables to use in the file open dialog box
sFilter = "Comma
-
delimited Files (*.csv),*.csv"
sTitle = "Please Select a CSV File"
'display dialog asking user to select a CSV file
sFile = Application.GetOpenFilename(sFilter, , sTitle)
'check to see if cancel selected in the box
If sFile = "False" Then End
320
'make certain a CSV file is selected, stop if it is not a CSV file
If LCase(Right(sFile, 4)) <> ".csv" Then
MsgBox "You did not select a CSV file", _
vbCritical, "Error"
End
End If
'Do your processing here.
End Sub
14.3.5.2 Creating CSV Files
The simplest way to create a CSV file is to make a copy of the active sheet and save it as a CSV
file:
Sub CreateCSVFile()
'turn off warning messages
Application.DisplayAlerts = False
'copy the active sheet to its own workbook
ActiveSheet.Copy
'save the sheet as a CSV file
ActiveWorkbook.SaveAs Filename:="C:\myData.CSV", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close False
End Sub
If you just want to save a range on a worksheet as a CSV file, then you can use the following
macro instead.  It also allows you to change the data separator from a comma to any other text
character.
Sub Create_Csv_File()
Dim F As Long, fName
Dim J As Long, I As Long
Dim rng As Range, outputLine As String
Dim entrySeparator As String
Dim fCol As Long, lCol As Long, fRow As Long, lRow As Long
Dim nResponse As Integer
'specify the entry separator which normally is a comma
entrySeparator = ","
'get the next file number available for use
Documents you may be interested
Documents you may be interested