impresin aliniada a la derecha
Publicado por ALEXANDER (2 intervenciones) el 16/08/2005 00:11:54
hola tengo problemas con la impresion en visual 6.0 no estoy utilizando el printer si no SWBPRINTER este codigo lo consegui en internet yo lo adapte y me estaba funcionando bien pero despues me percate que los montos no salen alineados a la derecha que tengo que hacer ya que las ayudas que he conseguido son para el printer y yo no uso eso aqui les doy el codigo que uso para ver si me pueden ayudar:
Private Const SWBPRINTER_FONT_BOLD = 1
Private Const SWBPRINTER_FONT_UNDERLINE = 2
Private Const SWBPRINTER_FONT_ITALIC = 4
Private Const SWBPRINTER_ZOOM_FULLPAGE = -1
Private Const SWBPRINTER_ZOOM_PAGEWIDTH = -2
Private Const PRINT_REPORT = 1
Private Const PREVIEW_REPORT = 2
Private WithEvents SWBPrintEngine As SWBPrinter
Set temporal = BD.OpenRecordset("select * from Temporal ")
temporal.MoveFirst
XTOP_LIN = 11
XSAL_LIN = 0
XCON_LIN = 0
Do While temporal.EOF = False
X_DES = Trim(temporal.Fields("DESPRO"))
SWBPrintEngine.TextOut 0.5, X_DES
X_CAN = Trim(Str(temporal.Fields("CANPRO")))
SWBPrintEngine.TextOut 2#, X_CAN
X_PVP = temporal.Fields("PVPUNI")
SWBPrintEngine.TextOut 2.3, (Format(X_PVP, "###,##0.00"))
X_LP = ""
X_DCTO = Trim(temporal.Fields("DESCTO"))
X_LP = X_DCTO + "%"
SWBPrintEngine.TextOut 2.9, X_LP
X_LP = ""
X_IVA = Trim(temporal.Fields("CTRIVA"))
If X_IVA = "1" Then
X_LP = "15%"
Else
X_LP = "Exc"
End If
SWBPrintEngine.TextOut 3.3, X_LP
X_SUB = Round(temporal.Fields("SUBTOT"), 2)
SWBPrintEngine.TextOut 3.6, Format(X_SUB, "###,##0.00")
SWBPrintEngine.EndDoc
SWBPrintEngine.PreviewReport
SWBPrintEngine.PrintReport
este es el codigo espero que me ayuden el problemas esta cuando se imprime X_SUB, X_PVP QUE SON LOS NUMERO QUE NO ME SALEN ALINEADOS A LA DERECHA
Private Const SWBPRINTER_FONT_BOLD = 1
Private Const SWBPRINTER_FONT_UNDERLINE = 2
Private Const SWBPRINTER_FONT_ITALIC = 4
Private Const SWBPRINTER_ZOOM_FULLPAGE = -1
Private Const SWBPRINTER_ZOOM_PAGEWIDTH = -2
Private Const PRINT_REPORT = 1
Private Const PREVIEW_REPORT = 2
Private WithEvents SWBPrintEngine As SWBPrinter
Set temporal = BD.OpenRecordset("select * from Temporal ")
temporal.MoveFirst
XTOP_LIN = 11
XSAL_LIN = 0
XCON_LIN = 0
Do While temporal.EOF = False
X_DES = Trim(temporal.Fields("DESPRO"))
SWBPrintEngine.TextOut 0.5, X_DES
X_CAN = Trim(Str(temporal.Fields("CANPRO")))
SWBPrintEngine.TextOut 2#, X_CAN
X_PVP = temporal.Fields("PVPUNI")
SWBPrintEngine.TextOut 2.3, (Format(X_PVP, "###,##0.00"))
X_LP = ""
X_DCTO = Trim(temporal.Fields("DESCTO"))
X_LP = X_DCTO + "%"
SWBPrintEngine.TextOut 2.9, X_LP
X_LP = ""
X_IVA = Trim(temporal.Fields("CTRIVA"))
If X_IVA = "1" Then
X_LP = "15%"
Else
X_LP = "Exc"
End If
SWBPrintEngine.TextOut 3.3, X_LP
X_SUB = Round(temporal.Fields("SUBTOT"), 2)
SWBPrintEngine.TextOut 3.6, Format(X_SUB, "###,##0.00")
SWBPrintEngine.EndDoc
SWBPrintEngine.PreviewReport
SWBPrintEngine.PrintReport
este es el codigo espero que me ayuden el problemas esta cuando se imprime X_SUB, X_PVP QUE SON LOS NUMERO QUE NO ME SALEN ALINEADOS A LA DERECHA
Valora esta pregunta
0