Hello,
Sorry to bring this up again but I am continue to have problems when trying to set the form length. The problem because when I upgraded to FWH 7.11 to 8.01. The problem is that the first form prints properly, however the second form does not feed properly. We have tried to create the same document in MS Word and Acrobat and it works fine so there is a problem with the FWH print system. The printer is an Okidata ML 320, 321 and 490 - all worked properly in version 7.11
Thank you in advance for your help.
Here are two samples.
1)
nWid := ROUND( nWid1 * 254, 0)
nLen := ROUND( nLen1 * 254, 0)
PrnSetSize(nWid, nLen )
PRINT oPrinter FROM USER PREVIEW PRINTER NAME "Grid Utility"
if empty( oPrinter:hDC )
return nil
endif
DEFINE FONT oFont NAME "Arial" SIZE 0,-10 OF oPrinter
if (nLay==1)
oPrinter:SetPortrait()
else
oPrinter:SetLandScape()
endif
PAGE
... Print data ...
ENDPAGE
oPrinter:SetPortrait()
ENDPRINT
nWid := ROUND( 8.5 * 254, 0)
nLen := ROUND( 11 * 254, 0)
PrnSetSize(nWid, nLen )
2)
PRINT oPrinter FROM USER PREVIEW PRINTER NAME "Grid Utility"
if empty( oPrinter:hDC )
return nil
endif
DEFINE FONT oFont NAME "Arial" SIZE 0,-10 OF oPrinter
nPWid := 254 * 8.5
nPHgt := 254 * 12
oPrinter:SetSize(nPWid, nPHgt) // 8.5 x 12 Inches...
if (nLay==1)
oPrinter:SetPortrait()
else
oPrinter:SetLandScape()
endif
PAGE
... Print data ...
ENDPAGE
oPrinter:SetPortrait()
nPWid := 254 * 8.5
nPHgt := 254 * 11
oPrinter:SetSize(nPWid, nPHgt) // 8.5 x 11 Inches...
ENDPRINT
