Imports System.Drawing
Imports System.Drawing.Printing
Imports System.Windows.Forms
Module App
' ********************************************************' * 変数' ********************************************************
Private printFont As Font
Private prtDialog As new PrintDialog
Private printPageMax As Integer = 2
Private rowCount As Integer = 0
' ********************************************************' * 実行' ********************************************************
Sub Main()
Dim pd As New PrintDocument
prtDialog.PrinterSettings = New PrinterSettings
prtDialog.Document = pd
If prtDialog.ShowDialog() = DialogResult.OK Then
printFont = New Font("HG創英角ポップ体", 12)
AddHandler pd.PrintPage, AddressOf pd_PrintPage
pd.Print()
End If
prtDialog.Dispose()
End Sub
Sub pd_PrintPage(sender As Object, ev As PrintPageEventArgs)
Dim linesPerPage As Integer = 0
Dim yPos As Integer = 0
Dim leftMargin As Integer = ev.MarginBounds.Left
Dim topMargin As Integer = ev.MarginBounds.Top
Dim I as Integer
linesPerPage = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)
For I = 1 to linesPerPage
rowCount += 1
yPos = topMargin + (I-1) * printFont.GetHeight(ev.Graphics)
ev.Graphics.DrawString("行" & rowCount, printFont, _
Brushes.Black, leftMargin, yPos, New StringFormat())
Next
printPageMax -= 1
if printPageMax = 0 then
' 次ページ無し
ev.HasMorePages = False
else
' 次ページ有り
ev.HasMorePages = True
end if
End Sub
End Module
↓vc8.bat ( Visual C++ 2005 Express Edition with SDK )
Set AddPath=C:\Program Files\Microsoft Visual Studio 8\Common7\IDE
Set PATH=%AddPath%;%PATH%
Set CL8="C:\Program Files\Microsoft Visual Studio 8\VC\bin\cl.exe"
Set LINK8="C:\Program Files\Microsoft Visual Studio 8\VC\bin\link.exe"
Set INC81="C:\Program Files\Microsoft Visual Studio 8\VC\include"
Set INC82="C:\Program Files\Microsoft Platform SDK\Include"
Set INC83="C:\Program Files\Microsoft Platform SDK\Include\atl"
Set LIB81="C:\Program Files\Microsoft Visual Studio 8\VC\lib"
Set LIB82="C:\Program Files\Microsoft Platform SDK\Lib"
Set LIBS1=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib
Set LIBS2=shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib
%CL8% %1.cpp /c /I%INC81% /I%INC82% /I%INC83%
%LINK8% /LIBPATH:%LIB81% /LIBPATH:%LIB82% %1.obj %LIBS1% %LIBS2%