display pdf in asp net c# : How to reverse page order in pdf software control dll winforms web page wpf web forms 1200%20macro_examples41-part160

411
'display result if all the above tests are OK
MsgBox "You entered " & Format(dDate, "mmm d, yyyy")
End Sub
22.4 How To Find A Specified Time In A Specific Range
Sub fndtime()
Dim timetofind As Double
Dim anyRange As Range
Dim userInput
Dim iLoc As Long
'set the range to search for a matching time
Set anyRange = Range("A1:A100")
'get the time to find
userInput= InputBox("What time do you want to find?")
'exit if no value entered
If userInput= "" Then
Exit Sub
End If
If IsDate(userInput) Then
'if the entry is a date then do this
'convert value to number
timetofind = CDbl(TimeValue(userInput))
'get the closest match
iLoc = Application.Match(timetofind, anyRange, 1)
'select that cell
anyRange .Cells(iLoc, 1).Select
Else
'if entry was not a date say so!
MsgBox "Please enter a date!"
End If
End Sub
22.5 How To Find A Date In A Range
How to reverse page order 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#
how to save a pdf after rotating pages; rotate pdf page permanently
How to reverse page order 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
rotate pdf page and save; how to rotate one page in pdf document
412
The following code illustrates how to find a date in a range.  The range must be one column
wide.
Sub FindDate()
Dim searchRange As Range
Dim dDate As Date
Dim I As Variant
Dim cell As Range
dDate = "3/1/2003"
Set searchRange = Range("A1:A10")
I = Application.Match(CLng(dDate), searchRange, 0)
If Not IsError(I) Then
Set cell = searchRange(I)
MsgBox cell.Address
Else
MsgBox "No match found"
End If
End Sub
Another approach is the following:
Dim searchResult As Variant
searchResult = Application.WorksheetFunction.Match( _
CLng(DateSerial(2008,1,1)), _
Worksheets("Sheet1").Range("A1:A100"), 1)
If IsError(searchResult) Then
MsgBox "Date out of range"
Else
'action to take if found
End If
The difference betweenApplication.Match andWorksheetFunction.Match is what
happens on no match. Application.Match returns an error value.
WorksheetFunction.Match gives a trappable VB error
22.6 Using A Macro To Insert Current Time
Date and time (only time showing)
Sub EnterTime()
ActiveCell.Value = Now
ActiveCell.NumberFormat = "hh:mm"
End Sub
Time only
Sub EnterTime()
ActiveCell.Value = Time
ActiveCell.NumberFormat = "hh:mm"
End Sub
C# PDF Page Move Library: re-order PDF pages in C#.net, ASP.NET
page. Enable C# users to move, sort and reorder all PDF page in preview. Support to reverse page order in PDF document. RasterEdge
rotate all pages in pdf and save; saving rotated pdf pages
VB.NET PDF Page Move Library: re-order PDF pages in vb.net, ASP.
Support to reverse page order in adobe PDF document in both .NET WinForms application and ASP.NET webpage. Enable move, sort and reorder PDF page in preview.
how to rotate pdf pages and save permanently; rotate one page in pdf reader
413
22.7 Having Excel Wait For A Few Seconds
The following subroutine will wait for "x" seconds.  For example,
Wait_Awhile 10
will cause Excel to do nothing for ten seconds and just display the hourglass.  Such a routine is
useful if you write a message to a sheet and want to pause for the user to read it.
Sub Wait_Awhile(iSeconds As Integer)
Dim  waitTime
'calculate the time to wait until
waitTime = Now() + TimeSerial(0, 0, iSeconds)
Application.Wait waitTime
End Sub
22.8 Application.Wait
Application.Wait takes an Excel date
-
time serial number as its argument.  You pass a time
-
of
-
day, not a duration, to the method.  Each of the following lines of code will pause your code for
10 seconds.
Application.Wait Now() + TimeValue("0:0:10")
Application.Wait Now() + TimeSerial(0,0,10)
22.9 Date Comparisons
The following was posted by John Green to help a user under Excel date comparisons.  The
question posted was:
I am having problems achieving consistent results when using the AutoFilter
Method programmatically. This seems to center around when it is acceptable to
use an English style date format ("dd/mm/yyyy") and when I must use an
American style format ("mm/dd/yyyy").
John's response:  Excel VBA uses two quite different methods for comparison.
1)The first is when you want equality. In this case, the comparison is made against the formatted
appearance of the date on the sheet. If you have formatted a cell as "ddd dd/mm/yy", you must
match that format:
Dim myDate As Date
Dim DateStr As String
myDate = DateSerial(98, 1, 14)
DateStr = "=" & Format(myDate, "ddd dd/mm/yy")
ActiveCell.CurrentRegion.AutoFilter Field:=1, Criteria1:=DateStr
C# Word: How to Use C# Code to Print Word Document for .NET
document pages in original or reverse order within entire C# Class Code to Print Certain Page(s) of powerful & profession imaging controls, PDF document, image
how to rotate all pages in pdf at once; pdf reverse page order online
414
You can remove the leading "=" if you wish, it makes no difference.
2)The second is when you use any of the comparison operators apart from "=" by itself. In this
case the comparison is made against the internal date serial number and your date can be in any
recognized *AMERICAN* numeric format. The following works on dates formatted as above 
-
"ddd dd/mm/yy".
Dim myDate As Date
Dim DateStr As String
myDate = DateSerial(98, 1, 14)
DateStr = "<=" & Format(myDate, "mm/dd/yy")
ActiveCell.CurrentRegion.AutoFilter Field:=1, Criteria1:=DateStr
The following work equally as well
DateStr = "<=" & Format(myDate, "mm/dd/yyyy")
DateStr = "<=" & Format(myDate, "yyyy
-
mm
-
dd")
22.10 Using Code To Create A Calendar In A
Worksheet
The following Microsoft knowledge base article contains sample code for creating a monthly
calendar on a worksheet:
http://support.microsoft.com/support/kb/articles/Q150/7/74.asp
Q150774 
-
XL: How to Create a Monthly Calendar
22.11 Getting The End Of A Month
To get the end of the month, use a statement like the following:
EndOfMonth =DateSerial(Year(anydate),Month(anydate)+1,0)
22.12 Inserting The Date On Every Worksheet And
Footer
The following code will insert the date in cell A1 of every worksheet in the active workbook:
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Cells(1, 1).Value = "'" & Format(Now(), "mmm d, yyyy")
Next
the double quote, quote, and double quote in front of theFormat statement makes the date a
string entry instead of a date entry.  This means that the column does not have to be sized to
display the date entry.
415
The following inserts the current date into the right footer of every worksheet and chart sheet:
Dim oSh As Object
For Each oSh In ActiveWorkbook.Worksheets
oSh.PageSetup.RightFooter = Format(Now(), "mmm, d, yyyy")
Next
For Each oSh In ActiveWorkbook.Charts
oSh.PageSetup.RightFooter = Format(Now(), "mmm, d, yyyy")
Next
Notice that the above code did not have to activate or select any sheet.  You could also replace
ActiveWorkbook with a reference to any open workbook and run the above code.
22.13 Using Milliseconds when Excel Waits
First declare the following function at the top of a module:
Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)
Then use the following syntax to call the Sleep function or a one second delay:
Sleep (1000)
22.14 Writing The Date And Time Out To A Cell
The following statements illustrate how to write the date and/or time out to a cell:
ActiveCell.Value = Format(Now(),"mm/dd/yyyy")
or, if you want to write the date and time out to a cell, and that cell is identified by a range name
use:
Range("CellForDateTime").Value = "'" _
Format(Now(),"mm/dd/yyyy  hh:mm")
Please note that the above assumes that the cell is on the active sheet.  If it is not, then qualify the
Range statement with the sheet.  Also, by prefixing the date and time in the second example with
a quote, it makes the entry a string so that the column does not have to be widened to display the
value.
The following illustrates how to write the date to a cell and format the cell:
With Range("B2")
.Value = Now()
.NumberFormat = "mm/dd/yy"
End With
22.15 Measuring Time Change
416
If you use GetTickCount or TimeGetTime from the WIN API you won't have to worry about the
midnight rollover. They return the time in milliseconds since the system was started. I believe the
latter "rolls over" every 49 days.
Declare Function GetTickCount Lib "kernel32" () As Long
Declare Function TimeGetTime Lib "winmm.dll" () As Long
22.16 Automatically Entering The Date Into A Edit Box
The following illustrates how to enter the date into an edit box:
UserForm1.TextBox1.Text =Format(Now(), "mmm
-
yy")
22.17 Days Left Counter
Dates are stored as the number of days from a base date, so just subtracting the dates should give
you the number of days.
Sub tester2()
DateVal = #6/25/99#
MsgBox CLng(Date 
-
DateVal) & " days have elapsed"
End Sub
You can also look at the Excel VBA functionDateDiff.
22.18 Select Case Using Dates
Try enclosing your dates inside of pound signs, and use the "To" keyword:
Case #4/20/99# To #5/21/99#
22.19 Validating Date Entries
Validating dates is one of Visual Basic's weaknesses.  For example for the US, the string 15/2/98
refers to month 15, which obviously is incorrect.  If your system is set to use a day/month/year
format, then 2/15/98 would be an incorrect entry.
The following code illustrates a way around this problem
Sub ValidateADate()
Dim strMyDateString As String
'prompt for a date
strMyDateString = InputBox("Enter a date in mm/dd/yy format")
'exit if no date entered
417
If strMyDateString = "" Then Exit Sub
'convert entry to a date and compare to the system's short format
If Format(CDate(strMyDateString), "Short Date") = _
strMyDateString Then
MsgBox "it is a date."
Else
MsgBox "it is not a date"
End If
End Sub
Other defined formats that you can use are:
Format Name Description
Long Date Display a date according to your system's long date format.
Medium Date Display a date using the medium date format appropriate for the language version
of the host application.
Short Date Display a date using your system's short date format.
You may want to use a custom format instead of the above, that way you can insure that the
format is the way you request it.  If you do this, you can not use m for month, d for date, and y for
year as these are language dependent.  The following illustrates this:
Sub Validate_With_Custom_Format()
Dim strMyDateString As String
Dim mStr As String, dStr As String, yStr As String
Dim sStr As String
Dim customFormat As String
'get user's settings for month, day, year, and date separator
With Application
mStr = .International(xlMonthCode)
dStr = .International(xlDayCode)
yStr = .International(xlYearCode)
sStr = .International(xlDateSeparator)
End With
'construct a custom format (in US format, this would be m/d/yy)
customFormat = mStr & sStr & dStr & sStr & yStr & yStr
'prompt for a date in the custom format
418
strMyDateString = InputBox("Enter a date in " & _
customFormat & " format")
'exit if no date entered
If strMyDateString = "" Then Exit Sub
'convert the string to a date in the custom format and compare to the
'string that was entered
If Format(CDate(strMyDateString), customFormat) = _
strMyDateString Then
MsgBox "It is a date."
Else
MsgBox "It is not a date"
End If
End Sub
419
23. SHORTCUT KEYS
23.1 Individual Disable Shortcut Keys
The following lists individual commands that can disable the different shortcut keys in Excel.
Please note nothing prevents a user from double clicking on a workbook containing code that
resets the keys (and menus).
Sub DisableExcelShortcutKeys()
'Customize Function Keys
Application.OnKey "{F1}", ""        'Displays On
-
Line Help
Application.OnKey "+{F1}", ""       'What's This
Application.OnKey "%{F1}", ""       'Insert a chart sheet
Application.OnKey "%+{F1}", ""      'Insert a worksheet
Application.OnKey "{F2}", ""        'Edit active cell
Application.OnKey "+{F2}", ""       'Edit a cell comment
Application.OnKey "%{F2}", ""       'Save As Command
Application.OnKey "%+{F2}", ""      'Save Command
Application.OnKey "{F3}", ""        'Paste number into
'formula
Application.OnKey "+{F3}", ""       'Paste function into
'formula
Application.OnKey "^{F3}", ""       'Define a Name
Application.OnKey "^+{F3}", ""      'Create names from
'addresses
Application.OnKey "{F4}", ""        'Repeat last action
Application.OnKey "+{F4}", ""       'Repeat last find
Application.OnKey "^{F4}", ""       'Close window
Application.OnKey "%{F4}", ""       'Exit
Application.OnKey "{F5}", ""        'GoTo
Application.OnKey "+{F5}", ""       'Find command
Application.OnKey "^{F5}", ""       'Restore window size
Application.OnKey "{F6}", ""        'Move to next pane
Application.OnKey "+{F6}", ""       'Move to previous pane
Application.OnKey "^{F6}", ""       'Move to next Workbook
'window
Application.OnKey "^+{F6}", ""      'Move to previous
'Workbook window
Application.OnKey "{F7}", ""        'Spelling command
Application.OnKey "^{F7}", ""       'Move the window
Application.OnKey "{F8}", ""        'Extend a selection
Application.OnKey "+{F8}", ""       'Add to the selection
Application.OnKey "^{F8}", ""       'Resize window
420
Application.OnKey "%{F8}", ""       'Display macro dialog
Application.OnKey "{F9}", ""        'Calculate all workbooks
Application.OnKey "+{F9}", ""       'Calculate active
'worksheet
Application.OnKey "^{F9}", ""       'Minimize the workbook
'window
Application.OnKey "{F10}", ""       'Activate menu bar
Application.OnKey "+{F10}", ""      'Display a shortcut menu
Application.OnKey "^{F10}", ""      'Restore workbook window
Application.OnKey "{F11}", ""       'Create a chart
Application.OnKey "+{F11}", ""      'Insert worksheet
Application.OnKey "^{F11}", ""      'Insert Excel 4 macro
'sheet
Application.OnKey "%{F11}", ""      'Activate VBE
Application.OnKey "{F12}", ""       'Save As command
Application.OnKey "+{F12}", ""      'Save command
Application.OnKey "^{F12}", ""      'Open command
Application.OnKey "%+{F12}", ""     'Print command
'Customize Navigation Keys
Application.OnKey "{DOWN}", ""      'Down arrow
Application.OnKey "{END}", ""       'End
Application.OnKey "{HOME}", ""      'Home
Application.OnKey "{LEFT}", ""      'Left arrow
Application.OnKey "{PGDN}", ""      'Page down
Application.OnKey "{PGUP}", ""      'Page up
Application.OnKey "{RIGHT}", ""     'Right arrow
Application.OnKey "{UP}", ""        'Up arrow
Application.OnKey "^{.}", ""        'Move within selection
Application.OnKey "^%{LEFT}", ""    'Jump left between
'selections
Application.OnKey "^%{RIGHT}", ""   'Jump right between
'selections
'Customize File functions
Application.OnKey "^{n}", ""        'New
Application.OnKey "^{o}", ""        'Open
Application.OnKey "^{p}", ""        'Print
Application.OnKey "^{s}", ""        'Save
'Customize Editing functions
Application.OnKey "^{c}", ""        'Copy
Application.OnKey "^{v}", ""        'Paste
Application.OnKey "^{x}", ""        'Cut
Documents you may be interested
Documents you may be interested