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 08:55 » emigrus 08:54 » Druzil 08:46 » Grza 08:43 » ReeX 08:38 » Kelso1 08:33 » hokr 08:28 » kyusi 08:23 » NWN 08:20 » Sebek 08:16 » Syzyf 08:10 » dugi 08:04 » Killer 07:51 » Marek1981 07:44 » Fl@sh 07:41 » Markizy 07:27 » PeKa 07:16 » leosh 07:00 » J@rek 06:44 » Kenny 06:29 Dzisiaj przeczytano 36863 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 :-)