Re: Drukownie w .NET

Article View: pl.comp.lang.vbasic

Article #104677

Back to pl.comp.lang.vbasic Previous Next

#104677

From: joker77
Date: Tue, 29 Jun 2010 19:01

33 lines
1721 bytes

najprostszy przykład:

dim pd1 as new printdocument
dim linia, ostatnia as integer

sub form1_load
addhandler pd1.PrintPage, addressof mojaobsluga
end sub

sub wywolaj_drukowanie()

linia = 0
ostatnia = 50

pd1.PrinterSettings.PrinterName = "MOJA NAZWA DRUKARKI" '<- bez tego
drukuje na domyślej
pd1.print()

end sub

sub mojaobsluga(ByVal sender As Object, ByVal e As
System.Drawing.Printing.PrintPageEventArgs)

for i as integer=0 to 9
 e.graphics.drawline(New Pen(Color.Black, 1),10,10+i,100,10+i)
 linia+=1
next

if linia<ostatnia then
 e.HasMorePages = true
end if

end sub

Technical Details

Message-ID: <e087262e-d2e1-4f27-80f1-6ab7a361bda3@j4g2000yqh.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!fu-berlin.de!postnews.google.com!j4g2000yqh.googlegroups.com!not-for-mail

References: <i0d1t2$ckf$1@news.onet.pl> <i0d2dl$dtb$1@news.onet.pl>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.icm.edu.pl!fu-berlin.de!postnews.google.com!j4g2000yqh.googlegroups.com!not-for-mail
From: joker77 <tomek@phuola.com>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Drukownie w .NET
Date: Tue, 29 Jun 2010 12:01:55 -0700 (PDT)
Organization: http://groups.google.com
Lines: 33
Message-ID: <e087262e-d2e1-4f27-80f1-6ab7a361bda3@j4g2000yqh.googlegroups.com>
References: <i0d1t2$ckf$1@news.onet.pl> <i0d2dl$dtb$1@news.onet.pl>
NNTP-Posting-Host: 84.10.173.245
Mime-Version: 1.0
X-Trace: posting.google.com 1277838115 21343 127.0.0.1 (29 Jun 2010 19:01:55 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 29 Jun 2010 19:01:55 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: j4g2000yqh.googlegroups.com; posting-host=84.10.173.245;  posting-account=yVDiYwkAAADpMM-rQU9AGSpU4bupX09Z
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US)  AppleWebKit/533.4 (KHTML, like Gecko) Chrome/5.0.375.70 Safari/533.4,gzip(gfe)
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message