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
