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
	» cVas 02:13 » piszczyk 02:08 » mirek190 01:57 » elliot_pl 01:52 » djXone 01:51 » Tomasz 01:15 » rainy 01:11 » alkatraz 00:23 » DJopek 00:13 » abes99 00:09 » Visar 23:48 » patinka 23:36 » luckyluc 23:30 » Wolf 23:13 » Killer 23:07 » Morgoth 23:05 » GLI 22:57 » NWN 22:53 » Wedelek 22:37 » metacom 22:34 Dzisiaj przeczytano 17411 postów, wczoraj 140905 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 :-)