It's the code taken right from the MSDN example. Try it...if you install a
generic printer (or print to a file as generic) it will fail.
;-)
Public Class PrintingExample
Private printFont As Font
Private streamToPrint As StreamReader
Private Shared filePath As String
Public Sub New()
Printing()
End Sub
' The PrintPage event is raised for each page to be printed.
Private Sub pd_PrintPage(se nder As Object, ev As PrintPageEventA rgs)
Dim linesPerPage As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = ev.MarginBounds .Left
Dim topMargin As Single = ev.MarginBounds .Top
Dim line As String = Nothing
' Calculate the number of lines per page.
linesPerPage = ev.MarginBounds .Height /
printFont.GetHe ight(ev.Graphic s)
' Iterate over the file, printing each line.
While count < linesPerPage
line = streamToPrint.R eadLine()
If line Is Nothing Then
Exit While
End If
yPos = topMargin + count * printFont.GetHe ight(ev.Graphic s)
ev.Graphics.Dra wString(line, printFont, Brushes.Black,
leftMargin, _
yPos, New StringFormat())
count += 1
End While
' If more lines exist, print another page.
If Not (line Is Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If
End Sub
' Print the file.
Public Sub Printing()
Try
streamToPrint = New StreamReader(fi lePath)
Try
printFont = New Font("Arial", 10)
Dim pd As New PrintDocument()
AddHandler pd.PrintPage, AddressOf pd_PrintPage
' Print the document.
pd.Print()
Finally
streamToPrint.C lose()
End Try
Catch ex As Exception
MessageBox.Show (ex.Message)
End Try
End Sub 'Printing
' This is the main entry point for the application.
Public Shared Sub Main()
Dim args() As String = System.Environm ent.GetCommandL ineArgs()
Dim sampleName As String = args(0)
If args.Length <> 1 Then
Console.WriteLi ne("Usage: " & sampleName & " <file path>")
Return
End If
filePath = args(0)
End Sub
End Class
[C#]
public class PrintingExample
{
private Font printFont;
private StreamReader streamToPrint;
static string filePath;
public PrintingExample ()
{
Printing();
}
// The PrintPage event is raised for each page to be printed.
private void pd_PrintPage(ob ject sender, PrintPageEventA rgs ev)
{
float linesPerPage = 0;
float yPos = 0;
int count = 0;
float leftMargin = ev.MarginBounds .Left;
float topMargin = ev.MarginBounds .Top;
String line=null;
// Calculate the number of lines per page.
linesPerPage = ev.MarginBounds .Height /
printFont.GetHe ight(ev.Graphic s) ;
// Iterate over the file, printing each line.
while (count < linesPerPage &&
((line=streamTo Print.ReadLine( )) != null))
{
yPos = topMargin + (count * printFont.GetHe ight(ev.Graphic s));
ev.Graphics.Dra wString (line, printFont, Brushes.Black,
leftMargin, yPos, new StringFormat()) ;
count++;
}
// If more lines exist, print another page.
if (line != null)
ev.HasMorePages = true;
else
ev.HasMorePages = false;
}
// Print the file.
public void Printing()
{
try
{
streamToPrint = new StreamReader (filePath);
try
{
printFont = new Font("Arial", 10);
PrintDocument pd = new PrintDocument() ;
pd.PrintPage += new PrintPageEventH andler(pd_Print Page);
// Print the document.
pd.Print();
}
finally
{
streamToPrint.C lose() ;
}
}
catch(Exception ex)
{
MessageBox.Show (ex.Message);
}
}
// This is the main entry point for the application.
public static void Main(string[] args)
{
string sampleName = Environment.Get CommandLineArgs ()[0];
if(args.Length != 1)
{
Console.WriteLi ne("Usage: " + sampleName +" <file path>");
return;
}
filePath = args[0];
new PrintingExample ();
}
}
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:2j******** ****@uni-berlin.de...
* "Rob T" <RT*********@DO NTwalchemSPAM.c om> scripsit: I have a small VB program that has a printing module...very
simple....and works great. However, If I try to print to a generic printer, I get the
following error: "The data area passed to a system call is too small".
Post the code you are using to print to the printer.
--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>
