incubator-ooo-issues mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From bugzi...@apache.org
Subject [Bug 121170] New: com::sun::star::awt::XPrinter API does nothing
Date Sat, 06 Oct 2012 02:19:18 GMT
https://issues.apache.org/ooo/show_bug.cgi?id=121170

          Priority: P3
            Bug ID: 121170
          Assignee: ooo-issues@incubator.apache.org
           Summary: com::sun::star::awt::XPrinter API does nothing
          Severity: normal
        Issue Type: DEFECT
    Classification: Code
                OS: All
          Reporter: arielch@apache.org
          Hardware: All
            Status: CONFIRMED
           Version: AOO 3.4.1
         Component: code
           Product: api

Using the printing API in the AWT module has no efect at all.
The following code does nothing:

REM  *****  BASIC  *****
Option Explicit

Sub PrinterServer_test
    Dim oPrinterServer as Object
    oPrinterServer = CreateUnoService("com.sun.star.awt.PrinterServer")

    Dim sPrinterNames$()
    sPrinterNames = oPrinterServer.getPrinterNames()

    If UBound(sPrinterNames) >= 0 Then
        Dim oPrinter as Object, n%
        oPrinter = oPrinterServer.createPrinter("Cups-PDF")
        oPrinter.start("XPrinter API Demo JOB",1,false)
        Dim oDevice as Object, oGraphics as Object
        For n = 0 To 5
            oDevice = oPrinter.startPage()
            oGraphics = oDevice.createGraphics()
            oGraphics.drawText(0,0,"Hello world in page " + CStr(n+1))
            oPrinter.endPage()
        Next
        oPrinter.end()
        oPrinter.terminate()
    End If
End Sub

You need a build with the fix to bug 117765 in order to test it with Basic.

-- 
You are receiving this mail because:
You are the assignee for the bug.

Mime
View raw message