[es] - stampa virmana na lx300 (3 na 1 stranici)

tacka
novi sad

Član broj: 55414
Poruke: 105
*.nspoint.net.

Profil

stampa virmana na lx300 (3 na 1 stranici)

^{18.04.2005. u 13:10 - pre 231 meseci}

Ovo mi je problem koji ne znam nikako da resim.
U izvestaju postavim tri reda, tako da tri virmana stanu na jednu stranicu.
Problem mi je kad stampam jedan ili dva virmana stampac posle stampe predje na sledecu stranicu, a ja bih hteo da ostane na sledecem virmanu.
Stampac je epson lx300, a papir je perforirani, beskonacni letter, tri virmana su na jednom papiru.

Odgovor na temu

Zeromicin

Član broj: 31930
Poruke: 152
*.panet.co.yu.

Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{18.04.2005. u 22:28 - pre 231 meseci}

Imao sam isti problem kada sam ja radio program za stampanje virmana (VB6). Problem se javljao kada sam koristio komandu Printer, a kod matricnog stampaca je najbolje da koristis Raw print metod: Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, ByVal pDefault As Long) As Long
Private Declare Function StartDocPrinter Lib "winspool.drv" Alias "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, pDocInfo As DOCINFO) As Long
Private Declare Function StartPagePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function WritePrinter Lib "winspool.drv" (ByVal hPrinter As Long, pBuf As Any, ByVal cdBuf As Long, pcWritten As Long) As Long Private Type DOCINFO
pDocName As String
pOutputFile As String
pDatatype As String
End Type Public Sub RawPrint(PrinterName As String, ByVal Data As String, NrOfCopies As Integer)
Printer
Dim lhPrinter As Long
Dim lReturn As Long
Dim lpcWritten As Long
Dim lDoc As Long
Dim MyDocInfo As DOCINFO

lReturn = OpenPrinter(PrinterName, lhPrinter, 0)
If lReturn = 0 Then Exit Sub

With MyDocInfo
.pDocName = "RawPrinterData"
..pOutputFile = vbNullString
.pDatatype = vbNullString
End With

lDoc = StartDocPrinter(lhPrinter, 1, MyDocInfo)
Call StartPagePrinter(lhPrinter)

For i = 1 To NrOfCopies
lReturn = WritePrinter(lhPrinter, ByVal Data, Len(Data), lpcWritten)
lReturn = EndPagePrinter(lhPrinter)
Next i

lReturn = EndDocPrinter(lhPrinter)
lReturn = ClosePrinter(lhPrinter)
End Sub

Odgovor na temu

tacka
novi sad

Član broj: 55414
Poruke: 105
*.nspoint.net.

Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{19.04.2005. u 08:45 - pre 231 meseci}

lepo ti sve ovo napisao, ali mi nista nije jasno.
podaci za virman mi se nalaze na formi,odnosno u tabeli.
Kako ih poslati na stampu?

Odgovor na temu

ashaRehT

Član broj: 41648
Poruke: 9
194.106.174.*

Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{20.04.2005. u 08:20 - pre 231 meseci}

Jednostavno, U properties-u sa stampac u windowsu/control panel ... stavi CUSTOM za default stranicu za stampac, a dimenzije upisi koje odgovaraju uplatnici (lenjir u ruke), tj. virmanu. odnosno sirina je manje bitna, najbitnija je duzina i mislim da je 101mm, ako se dobro secam. Kod mene to radi godinama tako i to dobro. Nemoj da stavljas 3 na jednu stranu, nego svaki nalog posebno i kad podesis ovako strano mozes da stampas proizvoljan broj naloga ... i svi ce biti OK

Odgovor na temu

tacka
novi sad

Član broj: 55414
Poruke: 105
*.nspoint.net.

Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{20.04.2005. u 10:00 - pre 231 meseci}

Na lx300 nemam custom.

Odgovor na temu

Zeromicin

Član broj: 31930
Poruke: 152
*.panet.co.yu.

Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{20.04.2005. u 15:04 - pre 231 meseci}

Pa ovako: Procedura RawPrint(PrinterName As String, ByVal Data As String, NrOfCopies As Integer) se koristi za slanje podataka na stampac. Ako stavis RawPrint Printer.DeviceName, strData, brKopija gde ti je Printer.DeviceName naziv stampaca, strData podaci koje saljes na stampu (u ovom slucaju pretpostavi da saljes string Zdravo) i brKopija integer koji ti odredjuje broj kopija istog teksta onda ova procedura na stampac ti salje rec: Zdravo ^ i glava za stampu staje odmah posle slova o. Tako ako zelis da odstampas sledeci tekst: Hello World strData treba da postavis: strData = "Hello" vbcrlf "World" i pozoves funkciju: RawPrint Printer.DeviceName, strData, 1 Evo ti materijala, sada lenjir u ruke, proracunaj gde sta treba da se nalazi, ako pa malo eksperimentisi.... cu

Odgovor na temu

tacka
novi sad

Član broj: 55414
Poruke: 105
*.nspoint.net.

Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{20.04.2005. u 15:25 - pre 231 meseci}

da te nebih davio mnogo glupim pitanjima, kazi mi u kojoj knjizi o tome mogu procitati.
Nije mi bas jasno kako da odredim pozicije na kojim treba odstampati, uplatio, svrha uplate, iznos, zracun, poziv na broj itd.

Odgovor na temu

proka_sm
proka_pronalazač
Sremska Mitrovica

Član broj: 127863
Poruke: 30
79.101.142.*

Profil

Štampanje virmana na EPSON LQ630

^{22.05.2008. u 16:11 - pre 193 meseci}

... Da ne otvaram novu temu, tiče se sličnog problema. Ja sam u excel-u napravio tabelu sa tri uplatnice (virmana) to sve sjajno funkcioniše kada odštampam samo tri uplatnice (1 stranu),medutim kada stampam npr 9 virmana (3 stranice) prva je OK, na drugoj mi text bezi 8mm gore u odnosu na polje, na trećoj strani bezi 16mm u odnosu na polje i tako dalje. problem je u tome sto mi je stampač podešen na A4 format koji je dim 210x297mm a dužina 3 virmana je 305mm, odnosno 8 mm duzi papir od A4 i svaki naredni list beži za 8 mm. koristim papir sa perforacijom. nadam se da sam sve objasnio kako treba , pa ako može neko da mi objasni kako da podesim štampač EPSON LQ630 da odradi dobro svaku stranu koju mu zadam. Ako je moguće da ga setujem samo za taj dokument sa virmanima... malo sam laik za ovako stručne odgovore kao gore navedeno :( hvala na razumevanju...

...ptice ne znaju za granice

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{22.05.2008. u 16:17 - pre 193 meseci}

@ proka_sm
Ovo je Access forum i deo je foruma Baze podataka. Pošto se radi o podešavanju u Excelu, pitanje postavi na:
http://www.elitesecurity.org/f254-Excel
Poruka će ti biti obrisana kroz nekoliko sati.

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: stampa virmana na lx300 (3 na 1 stranici)

^{22.05.2008. u 18:29 - pre 193 meseci}

Da požurimo pre nego što se obriše poruka :)
I u Excelu postoji Page Setup, probaj tamo da podesiš, 8.5x13 čini mi se. A takođe imaš i u printers and faxes, desni klik na printer i tamo proveri podešavanja u printing preferences.

Ozbiljan i odgovoran mladić

Odgovor na temu