Hello,
I continue to run in to problems when printing a non-standard form, in this case a 12 inch form, on a dot matrix printer. The printer is either an Espon LQ series or Okidata ML series; they both have drivers that support 12 inch forms. We have tested in Micrsoft Word and printer prints correctly on two pages, meaning the page is ejecting properly at end of first page.
My question is this. What is correct way to set the paper size? I have tried both below with inconsistent results. If anyone has a better, more reliable way, I would really appreciate it.
I have upgraded to FTDN - FWH 12.12; xHarbour 1.2.1 (Simplex) (Rev. 9656)
1. Before PRINT
nWid := ROUND( 8.5 * 254, 0) // 8.5 inches wide
nLen := ROUND( 12 * 254, 0) // 12 inches wide
PrnSetSize( nWid, nLen )
PRINT oPrinter FROM USER PRINT NAME "AWB" PREVIEW MODAL
.
.
ENDPRINT
nWid := ROUND( 8.5 * 254, 0)
nLen := ROUND( 11 * 254, 0)
PrnSetSize(nWid, nLen )
2. After PRINT
PRINT oPrinter FROM USER PRINT NAME "AWB" PREVIEW MODAL
if empty( oPrinter:hDC )
return nil
endif
nWid := ROUND( 8.5 * 254, 0)
nLen := ROUND( 12 * 254, 0)
oPrinter:SetSize( nWid, nLen )
.
.
ENDPAGE
nWid := ROUND( 8.5 * 254, 0)
nLen := ROUND( 11 * 254, 0)
oPrinter:SetSize( nWid, nLen )
ENDPRINT