display pdf in asp net c# : Rotate pages in pdf and save control application system web page azure asp.net console 1200%20macro_examples5-part169

51
Selecting halt in the Visual Basic debug screen or an error crash
Creation of a new module with the Option Explicit statement added
automatically
Local variables 
-
those defined within in a Sub or Function procedure 
-
are cleared at the end of
the procedure's execution.
6.7 Setting Variables To Refer To Cell Ranges
To set a variable to refer to a range, you need to use theSet command
Sub VariableSetToRange()
'this sets the variable myRange to the current worksheet's selection
Dim myRange As Range
Set myRange = Selection
End Sub
Sub VariableSetToCell()
'this sets the variable curCell to the active cell
Dim curCell As Range
Set curCell = ActiveCell
End Sub
Sub VariableSetToLargeRang
'this sets the variable cellsOfInterest to the cells from the active cell to
'the last cell in the cell's column with an entry. It assumes that there are
'entries in the column below the active cell.
Dim R As Integer, cellsOfInterest As Range
With ActiveSheet.UsedRange
R = .Cells(.Cells.Count).Row + 1
End With
Set cellsOfInterest = Range(ActiveCell, Cells(R, _
ActiveCell.Column).End(xlUp))
cellsOfInterest.Select
End Sub
6.8 Sharing Variable Values Between Workbooks
The following illustrates an un
-
documented approach to sharing variables between workbooks.
If you use it you have no guarantee that Microsoft will continue to support it in future versions of
Excel.
First create an "environmental" variable like this:
Rotate pages in pdf and save - 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 individually; pdf rotate just one page
Rotate pages in pdf and save - 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 permanently rotate pdf pages; rotate pages in pdf permanently
52
Sub SetVariable()
Application.ExecuteExcel4Macro ("SET.NAME(""CapitalOfUS"",""Wash DC"")")
End Sub
and read it in any other open workbook like this:
Sub ReadVariable()
MsgBoxApplication.ExecuteExcel4Macro("CapitalOfUS")
EndSub
This works even if the first workbook is later closed (since the variable belongs to Excel not the
first workbook).
6.9 Resetting Or Clearing An Object Variable
if you have set an object variable to refer to an object, it is possible to reset it.  An object variable
is one which is set to an object by using theSet command.  Examples of an object are a
workbook, a worksheet, a range on a sheet, part of chart, etc.  For example, the following sets
several object variables
Set tempR = Range("A1:B4")
Set sourceSheet = Sheets("Sheet1")
To reset an object variable, just set it toNothing For example:
Set tempR = Nothing
Set sourceSheet = Nothing
6.10 Disabling Toolbar Right Click
To disable the pop
-
up menu that appears if you right click on a toolbar, use:
CommandBars("Toolbar List").Enabled = False
This works in Excel 97 SR2 or higher.
6.11 Testing To See If An Object Variable Is Set
Examples of an object are a workbook, a worksheet, a range on a sheet, part of chart, etc.  For
example, the following sets several object variables
Set tempR = Range("A1:B4")
Set sourceSheet = Sheets("Sheet1")
To test to see if an object variable is set, use theIs test and the valueNothing:
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. This is a VB .NET example for how to delete a range of pages from a PDF document.
rotate single page in pdf reader; rotate pdf page few degrees
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 doc2.Save(outPutFilePath Add and Insert Multiple PDF Pages to PDF Document Using
rotate pdf page by page; how to save a pdf after rotating pages
53
If tempR Is Nothing Then
MsgBox "tempR is not set"
End If
6.12 Setting An Object Variable To A Column:
The following are three ways to set a range object variable to refer to a column:
Dim myRange As Range
Set
myRange
=Columns("B:B")
Set
myRange
=Columns(2)
Set
myRange
= [b:b]
6.13 Storing Values In Workbook Names
If you want, you can store values in workbook names instead of in a variable or in a cell.  The
advantage of this approach over use of cells is that you do not have to maintain a sheet to retain
values.  The advantage over variables is that variables lose their values when Excel is closed or an
End statement is executed.
The following statement illustrates how to assign a workbook name a value:
ActiveWorkbook.Names.Add "setting1", "ABC"
ActiveWorkbook.Names.Add "setting2", 5
To return the value assigned to the name, use the following statement:
setting1 = Mid(ActiveWorkbook.Names("setting1").Value, 2)
If the value being stored is a number then you will need to convert the name's value to a number
using theVal function:
setting2 = Val(ActiveWorkbook.Names("setting2").Value)
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
doc.DeletePage(2); // Save the file. doc.Save(outPutFilePath); Demo Code: How to Delete Consecutive Pages from PDF in C#.NET. How
pdf reverse page order online; rotate individual pages in pdf reader
C# PDF Page Extract Library: copy, paste, cut PDF pages in C#.net
Able to extract PDF pages and save changes to original PDF file in C#.NET. C#.NET Sample Code: Extract PDF Pages and Save into a New PDF File in C#.NET.
rotate pdf pages in reader; reverse page order pdf
54
7. ARRAYS
7.1 Determining The Size Of An Array
It is always a good idea to determine the size of an array because Visual Basic can start an array
with an index of 0.  For example if you had an array by the name of myPets() and its members
may be myPets(0) to myPets(2) or myPets(1) to myPets(3).  One way to force Visual Basic to use
the 1…3 approach is to put the statement
Option Base 1
at the top of your module.
To determine the size of an array, useLBound andUBound:
Dim firstIndex As Integer, lastIndex As Integer
firstIndex = LBound(myArray)
lastIndex = UBound(myArray)
If the array has two dimensions and you want the limits of the second dimension, then use
firstIndex = LBound(myArray,2)
lastIndex = UBound(myArray, 2)
7.2 Passing An Array To A Subroutine
Let's assume that you have a subroutine like the following one that requires an array as an
argument:
Sub MyProc(AnArray() As Integer)
'code that uses and changes AnArray()
End Sub
you call it from code like this:
MyProc SomeArray()
Note the empty parentheses. That's what tells Excel you mean the entire array rather than an
element of it.
7.3 Clearing Arrays and Object Variables
To clear or reset an array, use the Erase method:
VB.NET PDF Page Insert Library: insert pages into PDF file in vb.
outPutFilePath As String = Program.RootPath + "\\" Output.pdf" Dim doc1 doc2.InsertPages(pages, pageIndex) ' Output the new document doc2.Save(outPutFilePath
pdf rotate pages separately; save pdf rotate pages
How to C#: Rotate Image according to Specified angle
pages edit, C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET VB.NET How-to, VB.NET PDF, VB.NET Word, VB.NET Excel, VB Steps to Rotate image.
rotate individual pdf pages reader; how to rotate pdf pages and save permanently
55
Erase MyArray()
To clear or reset an object variable, set it to Nothing:
Set oVariable = Nothing
7.4 How To Get The Unique Entries In A Selection
The following code will return an array named "theList" that contains the unique values in a
selection.  The selection in this example must be only a single column wide.
Sub UniqueEntries()
'uArray will contain the unique values in the selection
Dim rng1 As Range
Dim theList As Variant
Dim uArray
Dim J As Long, I As Long
'make sure the selection is only a single column wide
If Selection.Columns.Count > 1 Then
MsgBox "the selection can only be a single column wide"
Exit Sub
End If
'set the range to a variable and to just cells in the used range
Set rng1 = Intersect(Selection, ActiveSheet.UsedRange)
'transpose the range so that it can be used by QuickSort and assign
'values to a variant variable which can act as an array
theList = Application.Transpose(rng1)
'sort the list using the routine below this one
QuickSort theList, 1, UBound(theList) 
-
LBound(theList) + 1
'remove non
-
unique entries and assign to a new variant array
J = 0
For I = LBound(theList) To UBound(theList)
If J = 0 Then
'create the array and put in the first entry
J = 1
ReDim uArray(1 To 1)
C# Create PDF from Tiff Library to convert tif images to PDF in C#
Similarly, Tiff image with single page or multiple pages is supported. Description: Convert to PDF and save it on the disk. Parameters:
how to rotate a single page in a pdf document; pdf rotate pages and save
C# Create PDF from Word Library to convert docx, doc to PDF in C#.
Able to get word count in PDF pages. Change Word hyperlink to PDF hyperlink and bookmark. Description: Convert to PDF/TIFF and save it on the disk.
rotate a pdf page; rotate pdf pages
56
uArray(1) = theList(I)
Else
If theList(I) <> theList(I 
-
1) Then
'if the next item in the theList is unique, add it to theList array
J = J + 1
ReDim Preserve uArray(1 To J)
uArray(J) = theList(I)
End If
End If
Next
'display the list
For I = 1 To UBound(uArray)
MsgBox uArray(I)
Next
End Sub
Sub QuickSort(SortArray, L, R)
Dim I, J, X, Y
I = L
J = R
X = SortArray((L + R) / 2)
While (I <= J)
While (SortArray(I) < X And I < R)
I = I + 1
Wend
While (X < SortArray(J) And J > L)
J = J 
-
1
Wend
If (I <= J) Then
Y = SortArray(I)
SortArray(I) = SortArray(J)
SortArray(J) = Y
I = I + 1
J = J 
-
1
End If
Wend
If (L < J) Then Call QuickSort(SortArray, L, J)
If (I < R) Then Call QuickSort(SortArray, I, R)
End Sub
7.5 Getting A List Of The Unique Items In A List
The code below in the subroutine named CreateUniqueList returns a modified array that contains
a sorted list of the items in a range.  To use, the user supplies the range containing the list and an
array.  The CreateUniqueList updates the array with the sorted list.  The range passed to the
routine can contain duplicate values.
57
The following two examples show how to use the CreateUniqueList routine by using the sorted
list to populate a listbox.
' how to use the CreateUniqueList routine.
Sub Excel97Example()
'declare an array but do not specify its size
Dim X() As String
'turn off screen updating
Application.ScreenUpdating = False
'call the routine and pass a range and an array
CreateUniqueList Worksheets(1).Range("a2:a10"), X
With UserForm1.ListBox1
'populate the list box as X now has values
.List = X
'turn on screen updating
Application.ScreenUpdating = True
'loop until an item is selected in the list
While .ListIndex = 
-
1
UserForm1.Show
'if no item selected, tell the user to select an item
If .ListIndex = 
-
Then _
MsgBox "You must select an item in the list."
Wend
'display the item selected
MsgBox .List(.ListIndex) & " was selected"
End With
'unload the userform
Unload UserForm1
End Sub
'this is the routine that returns a sorted list
58
Sub CreateUniqueList(srceRange As Range, X() As String)
Dim newBook As Workbook
Dim destCell As Range
Dim destSheet As Worksheet
Dim originalSetting As Long
Dim tempR As Range
Dim I As Long
'make certain the range passed to this routine is one column wide
If srceRange.Columns.Count > 1 Then
MsgBox "Only a single wide range is allowed."
End
End If
'make certain only one area in the range
If srceRange.Areas.Count > 1 Then
MsgBox "Only a single area can be passed to this routine"
End
End If
'add new workbook with two sheets
originalSetting = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 2
Set newBook = Workbooks.Add
Application.SheetsInNewWorkbook = originalSetting
'set object variables to be used when creating a pivot table
Set destSheet = newBook.Sheets(1)
Set destCell = destSheet.Cells(1)
'copy the source data and paste onto sheet 2 of the new workbook
srceRange.Copy
Worksheets(2).Cells(2, 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
'add a label above the pasted data
Worksheets(2).Cells(1, 1).Value = "Name"
'create a pivot table on the first sheet
destSheet.PivotTableWizard SourceType:=xlDatabase, _
SourceData:=Worksheets(2).UsedRange, _
TableDestination:=destCell, TableName:="PivotTable1", _
RowGrand:=False, ColumnGrand:=False
destSheet.PivotTables("PivotTable1").AddFields _
59
RowFields:="Name"
destSheet.PivotTables("PivotTable1") _
.PivotFields("Name").Orientation = xlDataField
'sort the data
destCell.Offset(2, 0).Sort Order1:=xlAscending, _
Type:=xlSortLabels, OrderCustom:=1, _
Orientation:=xlTopToBottom
'set a range variable to the sorted list
Set tempR = destCell.PivotTable.DataBodyRange.Offset(0, 
-
1)
'declare the array size equal to the cells in the above range
ReDim X(1 To tempR.Cells.Count)
'assign values to the array elements
For I = 1 To tempR.Cells.Count
X(I) = tempR.Cells(I).Value
Next
'close the workbook
newBook.Close False
End Sub
7.6 Storing Range Values In An Array
You can use a variant variable to save range values. That variant then becomes a two
-
dimensional array.  Example with the used range (but any range object will do):
'declare at the top of the module so that the array can be used by other
'routines in the module
Dim varArray
Sub SaveUsedRange()
'this assigns all cell values in the active sheet's used range to an array.
'UsedRange can be replaced with any range reference to store a different set
'of values
varArray = ActiveSheet.UsedRange
MsgBox UBound(varArray, 1) & " Rows"
MsgBox UBound(varArray, 2) & " Columns"
End Sub
60
You can restore the array on another place with code like this, which writes it to sheet2 of the
active workbook, starting at cell A1.
Sub RestoreRange()
Sheets(2).Range("A1").Resize(UBound(varArray, 1), _
UBound(varArray, 2)) = varArray
End Sub
Please note that you must use a variant variable (not a variant array) to pick up a multi
-
cell range
from the spreadsheet.
The following are some additional examples of storing range values in a variant variable:
you can also pick up a one dimensional array by using theApplication.Transpose function.  If
your values are going down a column, you can use
varArray = Application.Transpose(Range("A1:A10"))
varArray will contain a single dimension variant array with elements 1 to 10
If your values are all in one row you can pick them up with
varArray = _
Application.Transpose(Application.Transpose(Range("A1:J1")))
Again, varArray will contain a single dimension array with dimensions 1 to 10
Similarly, you can assign a range to a variant to create an array of values:
Dim myArray As Variant
myArray =Range("A1:A10").Value
7.7 Setting Array Size Dynamically
The following illustrates how to set an array's size dynamically:
Dim numElements As Integer
Dim myArray() As Integer
numElements = 2 + 3
ReDim myArray(1 To numElements)
If you need later to expand the array and want to preserve any values that you have assigned to
the array, usePreserve in theReDim statement:
Dim L As Integer, U As Integer
L =
LBound(myArray)
U = UBound(myArray)
ReDim Preserve myArray(L To U + 1)
Documents you may be interested
Documents you may be interested