display pdf in asp net c# : How to rotate all pages in pdf in preview application SDK utility html wpf web page visual studio 1200%20macro_examples53-part173

531
Cells.ClearOutline
34.24 Turning Num Lock Off Or On
The following will set the Num Lock key to off.  To set it to on instead, change KeyState(&H90)
= 0 to KeyState(&H90) = 1
Declare Function SetKeyboardState Lib "User32" _
(kbArray As Byte) As Long
Declare Function GetKeyboardState Lib "User32" _
(lpKeyState As Byte) As Long
Sub SetNumLock()
Dim KeyState(0 To 255) As Byte
GetKeyboardState KeyState(0)
KeyState(&H90) = 0
SetKeyboardState KeyState(0)
End Sub
34.25 Turning Scroll Lock Off Or On
The following allows you to control the Scroll lock setting.  As it is written, it turns off the scroll
lock.
Declare Function SetKeyboardState Lib "User32" _
(kbArray As ByteAs Long
Declare Function GetKeyboardState Lib "User32" _
(lpKeyState As ByteAs Long
Sub SetScrollLock()
Dim KeyState(0 To 255) As Byte
GetKeyboardState KeyState(0)
KeyState(&H91) = 0
SetKeyboardState KeyState(0)
End Sub
If you want to turn scroll lock on change
KeyState(&H91) = 1
to
KeyState(&H91) = 0
How to rotate all pages in pdf in preview - 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 single page in pdf file; permanently rotate pdf pages
How to rotate all pages in pdf in preview - 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; rotate pdf page permanently
532
34.26 Disabling The Delete Key
You can use code like the following to disable and enable the delete key:
SubDisableDeleteKey()
Application.OnKey"{Del}", ""
End Sub
SubEnablekDeleteKey()
Application.OnKey"{Del}"
End Sub
34.27 Writing To The Serial Port
Just a few clues on how to write to a serial port:  You can use the MSComm ActiveX control to
control the serial ports.  It comes with Visual Basic if you have it, otherwise you could try
searching the net for a similar control.
Another way is to write the data to an ASCII file and launch your own EXE to send it to the
serial port.  Search for the keyword ASCII in this help file on how to create an ASCII file. You
can launch an EXE by using theShell command.  Search for the topic "Launching Another
Windows Program Or Application From Excel" for information on how to do that.
There is also a company that sells a serial communications program called the Software Wedge
that you may find to be a good tool for adding serial communications capabilities to your Excel
application.  The Software Wedge is an executable program that can pass serial data back and
forth to other programs using either DDE (Dynamic Data Exchange) or by converting incoming
serial data to keystrokes (i.e. it stuffs the keyboard buffer with the incoming serial data).  The
program is extremely easy to use and is designed to have you up and running sending and
receiving serial data directly from within your application in just a few minutes.  Please visit
http://www.taltech.com
for more information.
34.28 COM PORTs
There are several ways to communicate with the com port. All use some sort of ActiveX control.
If you have Visual Basic, Professional edition or better, you can use MSCOMM32.OCX. It is
used in VBA (Excel VB) as in regular Visual Basic.
If you do not have access to MSCOMM32, here are some alternates:
Sax Comm is available at:http://www.saxsoft.com/comm
CommX is available fromhttp://www.greenleafsoftware.com
VB.NET PDF File Compress Library: Compress reduce PDF size in vb.
Also a preview component enables compressing and decompressing in preview in ASP.NET All object data. VB.NET Demo Code to Optimize An Exist PDF File in Visual
rotate pdf pages on ipad; reverse page order pdf online
How to C#: Preview Document Content Using XDoc.Word
if (bmp == null) throw new Exception("fail to load the document preview"); //. Copyright © <2000-2016> by <RasterEdge.com>. All Rights Reserved.
rotate single page in pdf reader; rotate all pages in pdf file
533
34.29 Capturing Win 95 Network Login User Name
This function will return the Windows user name::
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As LongAs Long
Sub Test()
MsgBox CurrentUserName
End Sub
Function CurrentUserName() As String
Dim UserName As String * 100
GetUserName UserName, 100
CurrentUserName = _
Left(UserName, InStr(1, UserName, Chr(0)) 
-
1)
End Function
The following is another approach, that uses a function to return the login name:
Declare Function GetUserName Lib "ADVAPI32.DLL" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As LongAs Long
Function UserName()
Dim S As String
Dim N As Long
Dim Res As Long
S = String$(200, 0)
N = 199
Res = GetUserName(S, N)
UserName = Left(S, N 
-
1)
End Function
34.30 Convert To PDF File Via VBA
The simpliest way to create a PDF file via a macro is to first install a PDF print driver.  Then,
your macro would do the following:
Store the current printer
·
Change the printer to the PDF printer
·
Print the document
·
Change the printer back to the original printer
The following illustrates this task:
How to C#: Preview Document Content Using XDoc.PowerPoint
if (bmp == null) throw new Exception("fail to load the document preview"); //. Copyright © <2000-2016> by <RasterEdge.com>. All Rights Reserved.
pdf rotate single page; how to rotate all pages in pdf in preview
C# WinForms Viewer: Load, View, Convert, Annotate and Edit PDF
Erase PDF pages. Miscellaneous. Plenty of VB.NET class demo codes and tutorials are given on How to Use XDoc.PDF SDK in VB.NET program. All Rights Reserved.
pdf rotate one page; how to save a pdf after rotating pages
534
Sub
CreatePDFFile()
Dim
curPrinter
AsString
curPrinter =
Application.ActivePrinter
Application.ActivePrinter
= "PDF
-
XChange 2.5 on Ne01:"
ActiveWindow.SelectedSheets.PrintOut
Application.ActivePrinter
= curPrinter
End Sub
To printout multiple pages to one PDF file is not so simple and very dependent on the PDF print
driver.  We use PDF
-
Xchange because it gives the option to append the output to an existing PDF
file (but not automatically).  Details on PDF
-
Xchange can be be found atdocu
-
track.com
Another alternative is found athttp://www.rcis.co.za/dale/info/pdfguide.htm
.
34.31 How To Display HTML Help Files
At the top of a module, put the following code:
PrivateDeclareFunction HtmlHelpTopic Lib "hhctrl.ocx" _
Alias "HtmlHelpA" _
(ByVal hwndAs Long,ByVal lpHelpFileAs String, _
ByVal wCommand As Long,ByVal dwData As String)As Long
Sub ShowHelp()
'Example of how to use
ShowHtmlHelp "C:\MYHelpFile.CHM"
End Sub
Sub ShowHtmlHelp(ByVal strHelpFile As String, _
OptionalByVal strHelpPage As String)
Const HH_DISPLAY_TOPIC As long = &H0
On Error Resume Next
'open the help page in a modeless window 
-
sHelpPage is an optional
'parameter that allows you to specify a particular HTML page
'within the chm file. If omitted, the default (index, usually)
'page is shown.
HtmlHelpTopic 0&, strHelpFile, HH_DISPLAY_TOPIC, strHelpPage
End Sub
34.32 Turn Off Asterisk As Wildcard
The asterisk is a wildcard character to Excel.  To use it as a literal in your code for text matches
or cell searches, prefix it with a tilde:  ~*.  This also works for other wildcard characters.
34.33 Preventing VBA Help from Resizing the Editor
C# WPF Viewer: Load, View, Convert, Annotate and Edit PDF
Erase PDF pages. Miscellaneous. Plenty of VB.NET class demo codes and tutorials are given on How to Use XDoc.PDF SDK in VB.NET program. All Rights Reserved.
save pdf rotated pages; rotate one page in pdf reader
C# PDF Page Insert Library: insert pages into PDF file in C#.net
as how to merge PDF document files by C# code, how to rotate PDF document page This C# demo explains how to insert empty pages to a specific All Rights Reserved
how to rotate one pdf page; rotate one page in pdf
535
If you use the help in the visual basic editor, it will resize the editor, which is very irritating.
You can fix this by making or changing a registry entry.  Run RegEdit, and go to the following
key
HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Common\HelpViewer
If there is a value named "IsFloating", change its value to 1.  If there is not a value with that
name, add a DWORD value named "IsFloating", and give it a value of 1.
Restart Excel and VBA, and the editor will not resize when you use help.
34.34 VBA Screen Capture Routines
The following will automate screen captures in Excel by using the win32 api function
keybd_event as follows:
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C
Sub PrintScreen()
keybd_event VK_SNAPSHOT, 0, 0, 0
End Sub
Where the second parameter:
bScan = 0 for a snapshot of the full screen
bScan = 1 for a snapshot of the active window.
C# HTML5 Viewer: Load, View, Convert, Annotate and Edit Raster
NET RasterEdge HTML5 Viewer offers user the functionality to rotate images 90 images to Tiff (.tif, .tiff) online, create PDF document from All Rights Reserved
pdf rotate all pages; pdf reverse page order
C# TIFF: TIFF Editor SDK to Read & Manipulate TIFF File Using C#.
Here we list all features supported by RasterEdge C#.NET to process Tiff file and its pages, like merge append, split, extract, create, insert, rotate, sort, etc
rotate individual pdf pages reader; rotate all pages in pdf and save
536
35. INTERESTING MACRO
EXAMPLES
35.1 An Example Of A Rounding Macro
The following macro will prompt the user for the number of digits to round a range of cells.  It
will then either round the numbers or modify the formulas so that they round.
Sub Round_Numbers()
Dim digits As Variant
Dim cell As Range
'turn off screen updating to prevent flashing screens
Application.ScreenUpdating = False
'prompt for a number.  The Type:=1 requires a number
digits = Application.InputBox( _
prompt:="How many digits do you want to round to?", _
Title:="Number of digits to round to", _
Type:=1, _
default:=3)
'check to see if cancel was selected
If TypeName(digits) = "Boolean" Then Exit Sub
'convert the inputbox output from a text string to a numeric value
digits = Val(digits)
'loop through just the selected cells in the used range
For Each cell In Intersect(Selection, ActiveSheet.UsedRange)
'see if the cell has a numeric entry
If Application.IsNumber(cell.Value) Then
If cell.HasFormula Then
'if a formula, modify formula to use Round()
cell.Formula = "=Round(" & _
Mid(cell.Formula, 2) _
& ", " & digits & ")"
Else
VB.NET PDF File Split Library: Split, seperate PDF into multiple
limit the pages of each file to 8 pages options.MaxPages = 8 outputFileName + "_" + i.ToString() + ".pdf") Next ' Split input PDF file to All Rights Reserved.
rotate individual pages in pdf; saving rotated pdf pages
VB.NET PDF remove image library: remove, delete images from PDF in
pages extract, copy, paste, C#.NET rotate PDF pages, C#.NET Remove multiple or all image objects from PDF Remove PDF image in preview without adobe PDF reader
how to reverse page order in pdf; change orientation of pdf page
537
'if a number, then just round the value
cell.Value = Application.Round(cell.Value, digits)
End If
End If
Next cell
Application.ScreenUpdating = True
End Sub
35.2 Finding Entries That Are Not In A List
The following example compares two selections and highlights the entries in the second selection
that are not in the first selection.
Sub FindOddBalls()
Dim MasterList As Range
Dim ItemsToMatch As Range
Dim cell As Range
Dim FoundRow As Long
On Error Resume Next
'get the ranges from the user.
'The above on error handles cancel being selected
Set MasterList = Application.InputBox( _
prompt:="Select the range to look in for a match", _
Type:=8)
'if no range supplied, exit macro
If MasterList Is Nothing Then End
'get second range
Set ItemsToMatch = Application.InputBox( _
prompt:="Select the cells to be checked for a match", _
Type:=8)
'if no range supplied, exit macro
If ItemsToMatch Is Nothing Then End
'restrict the ranges to the used range on the sheet in case entire rows or
'columns selected above
Set MasterList = Intersect(MasterList, _
ActiveSheet.UsedRange)
Set ItemsToMatch = Intersect(ItemsToMatch, _
ActiveSheet.UsedRange)
'rotate through each cell and see if it is in the first range
538
For Each cell In ItemsToMatch
'check only non
-
blank cells
If Application.Trim(cell) <> "" Then
'reset Err for each loop
Err = 0
'use the match function to see if there is a match. Using a value
'of Zero for the last argument means that an exact match is required
FoundRow = Application. _
Match(cell.Value, MasterList, 0)
'If a match is found Err stays zero; color the cell in that case
If Err <> 0 Then
With cell.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End If
End If
Next cell
End Sub
35.3 Deleting Leading Tick Marks From A Selection
The following example removes leading tick marks such as those shown below
'1/2/99
'02/05/99
from a selection.
Sub DontQuoteMe()
Dim rng As Range
For Each rng In Selection
rng.Formula = rng.Formula
Next rng
End Sub
If you want to confine the conversions to just date cells, use:
Sub DontQuoteMe()
Dim rng As Range
For Each rng In Selection
If IsDate(rng.Formula) Then
539
rng.Formula = rng.Formula
End If
Next rng
End Sub
35.4 How To Convert Formulas To Absolute References
The following code will convert all formulas on all sheets in the ActiveWorkbook to absolute
references:
Sub ConvertFormulas()
Dim cell As Range
Dim Fmla As String
Dim WS As Worksheet
Dim cellsToChange As Range
'turn off alert messages
Application.DisplayAlerts = False
'rotate through all the worksheets in the active workbook
For Each WS In Worksheets
'initialize cellsToChange each time through
Set cellsToChange = Nothing
'only check sheets with entries otherwise SpecialCells
'will display a message that no cells were found
If Application.CountA(WS.Cells) > 0 Then
'set an error trap in case no formula cells
On Error GoTo errorTrap
Set cellsToChange = WS.Cells.SpecialCells(xlFormulas)
'turn off error trap
On Error GoTo 0
'rotate through all cells with formulas
For Each cell In cellsToChange
'change cell's formula to absolute
cell.Formula = Application.ConvertFormula( _
cell.Formula, xlA1, xlA1, xlAbsolute)
540
Next cell
End If
nextSheet:
Next WS
Application.ScreenUpdating = True
Exit Sub
errorTrap:
Resume nextSheet
End Sub
35.5 A Database Modification Example
In this example, the user has a set of data in columns with the first row of the data being labels.
The data begins in cell A1.  The challenge is to insert a column between column A and B, and
add a formula that rations column C values by column D values.  Also a title needs to be placed at
the top of column B.
you can use theCurrentRegion property to define the range.
Set rng1 = Range("A1").CurrentRegion
To insert a column between columns A and B, you would use the following statement:
Columns(2).Insert
This next statement would put a title at the top of column 2:
Range("B1").Value = "Ratio of C to D"
Now to get the column 2 range that coincide with the data, you would do the following first
Set rng2 = Intersect(rng1,Range("B1").EntireColumn)
But this will include the header row, so you want to resize it to only include row 2 through the
last row
Set rng2 = rng2.Offset(1,0).Resize(rng2.Rows.Count
-
1)
Now to get the ratio of column 3 to column 4 the formula in A2 would be =C2/D2.  This can be
done in one step and the formula will be adjusted automatically if we use relative arguments
Rng2.Formula = "=C2/D2"
All together:
Sub ModifyDataBase()
Dim rng1 As Range, rng2 As Range
'assign current region to a variable
Documents you may be interested
Documents you may be interested