Re: [gebruikers] Printprobleem met een macro

[g.overbosch]

 Dank je Mariska,   Ik ga het zeker uitproberen.   Gerard ----- Original Message ----- From: Mariska van der Zalm To: g.overbosch Sent: Monday, December 05, 2005 1:33 PM Subject: Re: [gebruikers] Printprobleem met een macro Misschien dat je hier iets aan hebt. sub printselection Dim oRanges(1) as New com.sun.star.table.CellRangeAddress oRanges(0).Sheet = 0 oRanges(0).StartColumn = 1 : oRanges(0).StartRow = 0 oRanges(0).EndColumn = 3 : oRanges(0).EndRow = 24 ThisComponent.CurrentController.getActiveSheet().setPrintAreas(oRanges()) ThisComponent.Print(Array()) end sub Met vriendelijke groet, Mariska van der Zalm Waterschap Zeeuws-vlaanderen ----- Oorspronkelijk Bericht ----- Onderwerp: [gebruikers] Printprobleem met een macro Afzender:  g.overbosch <[EMAIL PROTECTED]> Aan: gebruikers@nl.openoffice.org Datum: 05-12-2005 12:10 In een Calc-applicatie wil via een macro een selectie maken en deze dan printen. Het selecteren gaat prima, maar zo gauw als er geprint wordt, wordt de totale file geprint en niet de selectie. VOor het selecteren en printen gebruik ik dit stukje macro;   rem ---------------------------------------------------------------------- dim args7(0) as new com.sun.star.beans.PropertyValue args7(0).Name = "ToPoint" args7(0).Value = "$B$1:$D$25"   dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args7())   rem ---------------------------------------------------------------------- dim args8(2) as new com.sun.star.beans.PropertyValue args8(0).Name = "Copies" args8(0).Value = 1 args8(1).Name = "Selection" args8(1).Value = true args8(2).Name = "Collate" args8(2).Value = false   dispatcher.executeDispatch(document, ".uno:Print", "", 0, args8())   Je zou verwachten dat de selectie B1:D25 geprint zou worden, maar helaas.   Wie helpt mij uit de brand!!!!   Gerard Overbosch