[libreoffice-users] storeToURL fails until machine is rebooted.

Below are 2 routines that print a sheet to paper and then to a .pdf file.

After the machine is started in the morning, and then for x number of
transactions, these routines work as expected. At some point however, an
error occurs at the line below that says:       
        "thisComponent.storeToURL(pdfURL,args())"

When I use the debug window to look at the fields being passes to the
storeToURL, they are as expected. I have no idea why after a while the
storeToURL fails and continues to fail until I reboot the machine.
Getting out of LO does not work. I have to reboot the box to get it
functioning again.

After a reboot, the sheet that was to be printed and turned into a pdf
again works as expected. Other executions work as expected until it
stops working as expected some number of transactions later and I have
no idea why.

Because I have to bounce the box to correct this, I suspect the problem
is in a loaded library that does not unload when LO is closed.

Anyone have any insight? I think this is a real bug.


sub receiptPrint(PrintOnPaper as boolean)
dim printRange(0)                        as new
com.sun.star.table.CellRangeAddress
dim nullRange()                          as new
com.sun.star.table.CellRangeAddress
dim printOptions(1)                      as new
com.sun.star.beans.PropertyValue

dim doc                                  as object
dim sheetReceipt                         as object

On Error goto errorRoutine

doc = ThisComponent
sheetReceipt=doc.sheets.getByName("Receipt")

printOptions(0).Name="Wait"
printOptions(0).Value=True
printOptions(1).Name="CopyCount"
printOptions(1).Value=1

printRange(0).sheet=sheetReceipt.RangeAddress.Sheet
printRange(0).StartColumn=0
printRange(0).StartRow=0
printRange(0).EndColumn=9
printRange(0).EndRow=getEndRow(sheetReceipt)

thisComponent.sheets(sheetReceipt.RangeAddress.Sheet).setPrintAreas(printRange())
if printOnPaper=True then
   thisComponent.Print(printOptions())
end if

On error goto 0

printPDF("receipt")

thisComponent.sheets(sheetReceipt.RangeAddress.Sheet).setPrintAreas(nullRange())

saveSpreadSheet()
exit sub

errorRoutine:
dim message as string
if Err<>0 then
   message="Error Number " & Err & " at line " & Erl & chr$(10) &
Error() & chr$(10)
   msgbox message,0,"Error Occurred"
endif
end sub ' receiptPrint










sub printPDF(subDir as string)
dim odsURL as string
dim pdfURL as string
dim strArray() as string
dim x as integer
DIM args(0) AS NEW com.sun.star.beans.PropertyValue

'exit sub

odsURL=thisComponent.getURL()  ' file:///bill/Desktop/WestEnd.ods
' Need file:///bill/Desktop/.pdf/YYMMDD/subDir/count#.pdf
strArray=split(odsURL,"/")

for x=0 to ubound(strArray)-1
   pdfURL=pdfURL & strArray(x) & "/"
next x

pdfURL=pdfURL & ".pdf"
if dir(pdfURL,16)="" then
   mkdir pdfURL
end if

pdfURL=pdfURL & "/" & right(year(Date()),2) & right(100  +
month(Date()),2) & right(100 + day(Date()),2)
if dir(pdfURL,16)="" then
   mkdir pdfURL
end if

pdfURL=pdfURL & "/" & subDir
if dir(pdfURL,16)="" then
   mkdir pdfURL
end if

pdfURL=pdfURL & "/"
x=1
while dir(pdfURL & right(1000 + x,3) & ".pdf",16) <> ""
   x=x+1
wend
pdfURL=pdfURL & right(1000 + x,3) & ".pdf"

'   Save as PDF

args(0).Name = "FilterName"
args(0).Value = "writer_pdf_Export"
thisComponent.storeToURL(pdfURL,args())

end sub

-- 
For unsubscribe instructions e-mail to: users+help@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted