Drukowanie w VB.NET przesuwa zawartosc kiedy PageUnit nie jest w pikselach

	B O A R D
	» Board » Zadaj pytanie » Archiwum » Szukaj » Stylizacja

M E N U

» Nowości

» Archiwum

» Recenzje / Testy

» Board

» Rejestracja

Szukaj @ TwojePC

	OBECNI NA TPC
	» luzak2363 23:05 » ToM78 22:50 » Kool@ 22:48 » doxent 22:44 » tian 22:41 » zibi13 22:41 » Logan 22:38 » Tomasz 22:37 » Chrisu 22:33 » XepeR 22:29 » Wolf 22:27 » wrrr 22:22 » DJopek 22:15 » rainy 22:11 » bajbusek 22:11 » Wedelek 22:09 » siwydym 22:08 » ManiusNG 22:01 » xpx 21:58 » Rafael_3D 21:45 Dzisiaj przeczytano 36867 postów, wczoraj 25433 Szybkie ładowanie jest: włączone.

ccc

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 :-)