DOS štampa, zašto i kako

Svima nama koji se bavimo programiranjem je jasno da dolaskom Windows
orjentisanih programa dolazi do "tihe" sahrane matricnih stampaca.
Kome ipak nije jasno neka ostampa neki izvjestaj iz, recimo, Access-a i
poredi brzinu stampanja izvjestaja slicne duzine iz nekog DOS programa
(recimo Clipper-a). Posto su matricni stampaci jako rasprostranjeni u
poslovima vezanim za knjigovodstvo nije tek tako preci na lasere.
Problem pogotovo dolazi do izrazaja kod referata koji zbog obimnosti
podataka moraju da koriste A3 papir (recimo neke liste u Osnovnim
sredstvima). Tu nije lako preci na A3 laser koji je i dalje dosta skup
a takodje i toneri za njega.
Zbog toga sam presao na "DOS" stampanje iz Access-a ali sam naisao
na problem kod prelaska na novu stranicu (Form Feed).
Naj jednostavniji primjer ne radi dobro:

Private Sub Eject_Click()

Open "lpt1:" For Output As #1

' problem ostaje isti bez obzira koja je definicija duzine u igri ili
' kada izbacim obje
' Print #1, Chr(27); "C"; Chr(72) ' duzina lista u linijama - 72 linije'
Print #1, Chr(27) + "C" + Chr(0) + Chr(12) ' duzina lista u inčima


' sa i bez ove linije je isti problem
' Print #1, "NASLOV"

Print #1, Chr(12) ' Form feed - OVDE JE PROBLEM!!!

Close #1

End Sub

Printer pomjeri papir za jednu liniju vise i zezne opciju TEAR OFF (izvuce
citav list viska sto korisnici posebno obozavaju...).
Kada ovaj jednostavni kod pravi probleme sta je tek sa visestranicnim
izvjestajima, zaglavljima na vrhu svake strane itd.
Printer je hardverski dobro podesen jer njegovo dugme Form Feed i Tear Off
rade normalno.
Koristim "beskonačni" papir i probao sam na LQ-1170 i LX 300 sa identicnim
rezultatima :(

Ne koristim access pa cu samo malo teorije i iskustva.

Koristio sam najcesce lx300 i mislim da je sjajan stampac, clipper. Lepo stampa iz dos programa, onda se nesto odstampa iz win pa pomeri stampu. Sta win posalje pre stampe nikad nisam posebno analizirao. Probaj da recimo pre ovih tvojih podesavanja posaljes reset kod, mislim da je chr(64).

Potpis

Pomozite Micro$oftu u borbi protiv piraterije, poklonite prijatelju Linux

OK probaću sutra, sada nisam u prilici ali mi se u startu ideja sa reserom (da to je chr(64) ili @) pošto za štampače koji nemaju ugrađenu 852 kodnu stranu (LQ 1170) dobivam YU znake kopiranjem odgovarajućih fajlova na LPT1 a reset to poništi.
Malo filozofije: Glavni moj razlog prelaska sa Clipper-a u Win programe su bili problemi sa štampom (specijalno i za mene nerješivo kada je štampač samo sa USB portom) a sada se opet stvari vračaju nazad. Džaba sam krečio... ;(

Ista situacija je i sa resetom Chr(27)+Chr(64). Takođe potpuno ista problematika postoji i kod VB 6 SP6.
Ima li ko kakav odgovor, zar samo ja razmišljam o jadnim korisnicima i njihovim uštedama sa nabavkom printera...

Problem koji muci i druge, prosao sam. Neko resenje ti je da kreiras izvestaj u ascii fajl, tekst i esc sekvence za kodove. Tako pripremljen posaljes na stampac komandom copy, recimo copy lista.txt \\racunar\stampac
sto znaci da moze da radi i preko mreze. Problem je da li usb stampaci podrzavaju neke kontrolne kodove

Potpis

Pomozite Micro$oftu u borbi protiv piraterije, poklonite prijatelju Linux

OK hvala na odgovoru, ali ja sam USB štampače spomenuo samo uzgred. Pitanje u ovoj temi je čudno ponašanje komande Chr(12) - Form Feed u Access-u i VB u primjeru na početku teme...

_{[Ovu poruku je menjao raspudic dana 27.09.2005. u 14:30 GMT+1]}

FINALNO RJEŠENJE!!!
Pošto sam ja započeo ovu temu red je da je i zaključim. Nikako nisam mogao da se
izborim sa Chr(12) prebacivanje na sljedeću stranu i izvlačenje zadnje stranice sam
riješio na sljedeći način:

Dim inicijal as String
Dim red As Integer
Dim i As Integer

' 12" dužina strane, normalno rastojanje redova i normalni font
' moglo bi i bez ovog reda ako je štampač hardverski dobro podešen ali
' je ovako sigurnije
inicijal = Chr(27) + "C" + Chr(0) + Chr(12) + Chr(27) + Chr(1) + Chr(27) + "P"
Open "lpt1:" For Output As #1
red = 1
Print #1, inicijal

red = red +1
Print #1, "šta već treba"



For i = 1 To 72 - red ' ovo glumi FF pošto Chr(12) FF dodaje bez veze red
Print #1, ' novi red, ovako treba a ne Chr(10) + Chr(13)
Next

Close #1


Normalno, za pravu primjenu, ovde treba otvoreni recordset, Do Loop petlja itd. ali je ovo
samo potpuno funkcionalna osnova.
Važi i za A4 i A3 a i Form Feed radi baš kako treba.

Pozdrav Željko

Predlazem da Zeljko ovo stavi u Bazu Znanja. Nesto kao:
"Da bi ste u stampali na matricnim stampacima, treba da rsite problem preloma strane itd itd"
i onda das resenje - ono sto si napisao u poslednjem postu.

Hvala za ideju i srecan rad.

Važi, čim stignem napisaću malo kompletniju priču i staviti u Bazu znanja.
Drago mi je ako nekom bude koristila.

Pozdrav