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
	» patinka 09:23 » Bonifacyz 09:20 » HetmaN72 09:19 » wrrr 09:18 » GLI 09:15 » Sherif 09:14 » XepeR 09:13 » KHot 09:12 » Kenny 09:10 » PeKa 09:05 » AfiP 09:01 » myszon 08:48 » emigrus 08:20 » kyusi 08:14 » szczebel 08:04 » matali 07:58 » ReMoS 07:26 » RoBakk 07:22 » mo2 06:07 » Martens 05:21 Dzisiaj przeczytano 17809 postów, wczoraj 59742 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 :-)