|
TwojePC.pl © 2001 - 2026
|
 |
A R C H I W A L N A W I A D O M O Ś Ć |
 |
| |
|
Drukowanie w VB.NET przesuwa zawartosc kiedy PageUnit nie jest w pikselach , Maners 7/02/05 17:54
Mam taki problem z drukowaniem, ze kiedy mam juz gotowa zawartosc do wydruku to jest ona umiesczona na kartce gdzies po srodku, kiedy powinna byc w lewym gornym rogu. Gorny i lewy margines jest ustawiony na 0. Probowalem uzywac TranslateTransform ale cos mi to nie wychodzi, tym bardziej ze na podgladzie wydruku jest ok. Kod wyglata tak:
Private Sub idDocument_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles idDocument.PrintPage
e.Graphics.PageUnit = GraphicsUnit.Millimeter
e.PageSettings.Margins.Top = 0
e.PageSettings.Margins.Left = 0
PrepareIdPrintout(e.Graphics)
End Sub
Private Sub PrepareIdPrintout(ByVal g As Graphics)
Dim drawFont As New Font("Arial", 11, FontStyle.Bold Or FontStyle.Italic)
Dim drawBrush As New SolidBrush(Color.Black)
Dim blackPen As New Pen(Color.Black, 1)
g.DrawImage(PictureBox1.Image, 6, 2, 25, 38)
g.DrawString("Queens Library", drawFont, drawBrush, 33, 2)
g.DrawString("Employee Temp ID", drawFont, drawBrush, 33, 9)
g.DrawString(txtFname.Text + " " + txtLname.Text, drawFont, drawBrush, 33, 17)
g.DrawString(txtDept.Text, drawFont, drawBrush, 33, 25)
g.DrawString(txtAgency.Text, drawFont, drawBrush, 33, 31)
g.DrawString(Now, drawFont, drawBrush, 33, 39)
g.DrawRectangle(blackPen, 0, 0, 73, 49)
End Sub
Dopoki nie ustawie PageUnit na milimetry to jest ok, ale po zmianie przesuwa mi ten wydruk i nie za bardzo wiem jak mam to przesuniecie obliczyc zeby je wstawic do TranslateTransform. Ma ktos jakis pomysl jak wymusic wydruk w leym gornym rogu?- juz ok , Maners 7/02/05 20:25
z marginesami bylo namieszane :-)
|
|
|
|
 |
All rights reserved ® Copyright and Design 2001-2026, TwojePC.PL |
 |
|
|
|
