Compa帽eros
Estoy usando la clase printer y quiero definir el tama帽o de una hoja en particular, quise usar oPrn : SetSize() pero no funciona, tampoco tiene mucho efecto oPrn : SetPage()
Hay alguna soluci贸n para esto. Uso FWH 20.04, Harbour 3.2 y BCC7. Muchas gracias
Saludos
Horacio,
Puedes copiar aqui un ejemplo de como lo est谩s usando ?
gracias
聽 聽 Printer oPrn Name "Impresi贸n comprobantes Rapipago" Preview
聽 聽 聽 聽oPrn : lPrvModal := .t.
聽 聽 聽 聽Define Font oFont1 Name 'Arial' 聽 Size 0, 聽-6 Of oPrn
聽 聽 聽 聽Define Font oFont2 Name 'Arial' 聽 Size 0, 聽-6 Of oPrn Bold
聽 聽 聽 聽Define Font oFont3 Name 'Arial' 聽 Size 0, 聽-8 Of oPrn
聽 聽 聽 聽Define Font oFont4 Name 'Arial' 聽 Size 0, 聽-8 Of oPrn Bold
聽 聽 聽 聽Define Font oFont5 Name 'Arial' 聽 Size 0, -10 Of oPrn
聽 聽 聽 聽Define Font oFont6 Name 'Tahoma' 聽Size 0, -10 Of oPrn Bold
聽 聽 聽 聽Define Font oFont7 Name 'Arial' 聽 Size 0, 聽-6 Of oPrn //Nescapement 900
聽 聽 聽 聽//oPrn : SetPage( 36 )
聽 聽 聽 聽 oPrn : SetSize( 50, 180 )
聽 聽 聽 聽 aPaperSizes := oPrn : GetPhySize()
聽 聽 聽 聽 Page
聽 聽 聽 聽 聽 聽 oPrn : CmSay( 5, 5, "Hola Mundo" oFont1 )聽 聽聽 聽 聽 聽
聽 聽 聽 聽 EndPage
聽 聽 EndPrint+1
+1
#include "FiveWin.Ch"
FUNCTION Main()
LOCAL oPrn, oFont1, oFont2
Define Font oFont1 Name 'Arial' Size 60, 95 Of oPrn
Define Font oFont2 Name 'Arial' Size 60, 95 Of oPrn Bold
PRINT oPrn Name "Impresi贸n comprobantes Rapipago A4" Preview
oPrn:SetPortrait()
Page
oPrn:SetPage(9)
@ 0,0 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY
@ 5, 5 PRINT TO oPrn TEXT "Hola Mundo";
SIZE 18,1 CM FONT oFont1 ALIGN "C"
EndPage
EndPrint
PRINT oPrn Name "Impresi贸n comprobantes Rapipago A5 apaisado" Preview
oPrn:SetLandscape()
Page
oPrn:SetPage(11)
@ 0,0 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY
@ 5, 5 PRINT TO oPrn TEXT "Hola Mundo";
SIZE 18,1 CM FONT oFont1 ALIGN "C"
EndPage
EndPrint
PRINT oPrn Name "Impresi贸n comprobantes Personalizado" Preview
oPrn:SetPortrait()
Page
oPrn:SetPage(27)
@ 0,0 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY
@ 5, 5 PRINT TO oPrn TEXT "Hola Mundo";
SIZE 18,1 CM FONT oFont1 ALIGN "C"
EndPage
EndPrint
RELEASE FONT oFont1
RELEASE FONT oFont2
return nil