Re: Drukownie w .NET

Article View: pl.comp.lang.vbasic

Article #104678

Back to pl.comp.lang.vbasic Previous Next

#104678

From: ChrissP.
Date: Sat, 03 Jul 2010 13:19

42 lines
1603 bytes

joker77 wrote:

> 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

Dzięki bardzo, pomogło :)

-- 
Pozdrawiam

Krzysztof

Technical Details

Message-ID: <i0nddm$il1$1@news.onet.pl>

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!not-for-mail

References:

<i0d1t2$ckf$1@news.onet.pl> <i0d2dl$dtb$1@news.onet.pl> <e087262e-d2e1-4f27-80f1-6ab7a361bda3@j4g2000yqh.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.rmf.pl!agh.edu.pl!news.agh.edu.pl!news.onet.pl!not-for-mail
From: "ChrissP." <krzyszp@-tnij-.poczta.onet.-tnij-.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: Drukownie w .NET
Date: Sat, 3 Jul 2010 13:19:50 +0000 (UTC)
Organization: http://onet.pl
Lines: 42
Message-ID: <i0nddm$il1$1@news.onet.pl>
References: <i0d1t2$ckf$1@news.onet.pl> <i0d2dl$dtb$1@news.onet.pl> <e087262e-d2e1-4f27-80f1-6ab7a361bda3@j4g2000yqh.googlegroups.com>
NNTP-Posting-Host: host-80-193-75-173.static.cable.virginmedia.com
Mime-Version: 1.0
X-Trace: news.onet.pl 1278163190 19105 80.193.75.173 (3 Jul 2010 13:19:50 GMT)
X-Complaints-To: niusy@onet.pl
NNTP-Posting-Date: Sat, 3 Jul 2010 13:19:50 +0000 (UTC)
User-Agent: XanaNews/1.18.1.6
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message