Re: Jak wymusic w Notepadzie

Autor: Grzegorz Niemirowski <gnthexfiles_at_poczta.onet.pl>
Data: Sun 16 Oct 2011 - 02:04:47 MET DST
Message-ID: <j7d730$68k$1@news.icpnet.pl>
Content-Type: text/plain; format=flowed; charset="iso-8859-2"; reply-type=original

Zbig <zbigniew2011REMOVEthis@gmail.REMOVE.com> napisał(a):
> :D
> Chociaż faktycznie zastanawiałem się, czy po prostu nie liczyć w skrypcie
> ilości wierszy, i w razie czego nie "dopełniać pustymi" do całej długości
> strony.

Ale nie możesz jakoś po ludzku? Po to są sterowniki do drukarki żeby to
robić w bardziej cywilizowany sposób niż Entery. Nie wiem w czym piszesz,
jeśli w PowerShell to można skorzystać z tego, co daje .NET:
[void][System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$doc = new-object System.Drawing.Printing.PrintDocument
$last = false
$doc.add_PrintPage({
 $font1 = new-object System.Drawing.Font("Courier", 36)
 $font2 = new-object System.Drawing.Font("Times New Roman", 36)
 Write-Host "Printing..."
 $string1="page 2"
 $string2="page 1"
 $measure=$_.Graphics.MeasureString($font1, $string1)
 $tmargin=$_.MarginBounds.Top
 $lmargin=$tmargin+$measure.Width/2.54
    if($last) {
 $_.Graphics.DrawString($string1, $font1, [System.Drawing.Brushes]::Green,
$tmargin, $tmargin, (new-object System.Drawing.StringFormat))
 $_.HasMorePages = $false
    } else {
 $_.Graphics.DrawString($string2, $font2, [System.Drawing.Brushes]::Blue,
$lmargin, $tmargin, (new-object System.Drawing.StringFormat))
 $_.HasMorePages = $true
    $last = $true
    }
})
$doc.Print()

-- 
Grzegorz Niemirowski
http://www.grzegorz.net/
OE PowerTool i Outlook Express: http://www.grzegorz.net/oe/
Uptime: 3 days, 22 hours, 43 minutes and 15 seconds 
Received on Sun Oct 16 02:05:02 2011

To archiwum zostało wygenerowane przez hypermail 2.1.8 : Sun 16 Oct 2011 - 02:42:02 MET DST