Stampa label.

[ik1mtt]

Ciao a tutti.

Devo stampare delle etichette su una stampante ad aghi,
su una sola colonna.
Il listato sottostante, funziona abbastanza bene, il
problema è che quando finiscono i dati da stampare
vorrei che la stampante si fermasse, invece butta
fuori parecchie etichette, è come se avesse un EJECT.

Ci sono altri metodi per questo tipo di stampa?
"intendo dire, senza foglo a4"

Altro problemino, prima di stampare mi viene la scritta
"inserire il foglio", solo con stampante ad aghi.

Grazie in anticipo.


*------------------------
Function Stampa_lbl( oLbx )

local oPrinter, oFont
local nWidth, nHeight, nMargin, nLblWidth, nLblHeight
local n, m, nRow := 5 , nCol := 5


HORZ_LABELS:=1
VERT_LABELS:=8


PRINTER oPrinter FROM USER ;
NAME "Fivewin Labels" PREVIEW


DEFINE FONT oFont NAME "ARIAL" SIZE 0,-10 OF oPrinter
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 BOLD OF oPrinter


nLblWidth = oPrinter:nHorzRes() / HORZ_LABELS
nLblHeight = oPrinter:nVertRes() / VERT_LABELS


nLblWid := 06 // 2
nLblHei := 15 // 6


nWidth := oPrinter:nHorzRes()/nLblWid
nHeight := oPrinter:nVertRes()/nLblHei
nMargin := Int(oPrinter:nLogPixelX()*0.1) // * 0.2

pCount:=0

CursorWait()

oPrinter:StartPage()


for n = 1 to VERT_LABELS
for m = 1 to HORZ_LABELS


pCount++


oPrinter:Box( nRow, nCol, nRow + nLblHeight - 40, nCol + nLblWidth - 1050)

oPrinter:SayBitmap( nRow + nLblHeight / 5 - 150,;
nCol + ( nLblWidth / 2 ) - 300,;
"..\bitmaps\FiveWin.bmp", nLblWidth / 3,;
nLblHeight / 1.8 )


nOldRow := nRow


oPrinter:Say( nRow + 05, nCol + 5, Trim( nomi ), oFont1 )
nRow+=oFont:nHeight
oPrinter:Say( nRow + 05, nCol + 5, Trim( nome ), oFont )
nRow+=oFont:nHeight
oPrinter:Say( nRow + 05, nCol + 5, indi, oFont )
nRow+=oFont:nHeight


nRow := nOldRow

nCol += nLblWidth

next
nRow += nLblHeight
nCol = 5
next

oPrinter:EndPage()

CursorArrow()

oPrinter:Preview()
oFont:End()
oFont1:End()


oLbx:UpStable() // Corrects same page stabilizing Bug
oLbx:GotFocus() // Repaint the ListBox
oLbx:Refresh() // Repaint the ListBox

return nil

[Enrico Maria Giordano]

Il listato sottostante, funziona abbastanza bene, il
problema è che quando finiscono i dati da stampare
vorrei che la stampante si fermasse, invece butta
fuori parecchie etichette, è come se avesse un EJECT.

Devi impostare il formato della carta con il metodo oPrn:SetPage() o con la funzione PrnSetPage(). Oppure vedi se è possibile impostarlo dalla stampante stessa (pannellino) o dalle sue proprietà sul pannello di controllo stampanti.

Altro problemino, prima di stampare mi viene la scritta
"inserire il foglio", solo con stampante ad aghi.

Dipende dal driver della stampante.

EMG