Remove Print Ranges

×

Warning message

This extension was not updated recently. It might not work with latest versions of OpenOffice.

Primary tabs

Provider:
Open Source Development Co., Ltd. Thailand.
Maintainer:
tantai_thanakanok
Rating:
3.666665

Average: 3.7 (3 votes)

Application:
Calc
Tags:
remove, print, areas, extension, remove, print, ranges, extension, print areas, extension, print ranges, extension
Screenshots:
http://www.osdev.co.th/sites/default/files/image/screenshot/rmprnranges.png
Post date:
Tuesday, 27 October, 2009 - 08:55
Statistics
Week: Not tracked - Month: Not tracked - Year: Not tracked - Timeline
Download extension
System Independent version - All releases
Compatible with OpenOffice 4: Unknown
User feedback:
Compatible with OpenOffice 4.x?

When you open Microsoft Excel files (xls) in Calc, it may contain several print ranges. If you want to remove all print ranges, you will have to remove the print range in each sheet individually. This extension remove the print ranges from all sheets.

Remove Print Ranges

Version Operating system Compatibility Release date
1.0.2 System Independent 3.4 30/11/2009 - 00:41 More information Download
1.0.1 System Independent 3.4 28/10/2009 - 04:36 More information Download
1.0.0 System Independent 3.4 27/10/2009 - 11:34 More information Download
0.9.9 System Independent 3.4 27/10/2009 - 09:21 More information Download

Comments

1. ---> Case "du"
2. ---> Mensaje = "Wollen Sie den Druck reicht in alle Blätter entfernen?"

1. ---> Case "du"
2. ---> Mensaje = "Wollen Sie den Druck reicht in alle Blätter entfernen?"

And maybe, other languages.

Excelent idea. Change the code and the extension send the message to spanish. The translations to german, portuguese, italian and french, I do it with google translator. Maybe the people can help to correct the translation.

Sub RemovePrintAreas
Dim args() As new com.sun.star.table.CellRangeAddress

If Msgbox(mensaje, MB_YESNO, "Remove Print Ranges") = IDYES Then
For i = 0 To ThisComponent.Sheets.Count - 1
s = ThisComponent.Sheets.getByIndex(i)
s.setPrintAreas(args())
Next
End If
End Sub

Function Mensaje(caso As Integer) As String
Dim oLibs As Object
oLibs = GlobalScope.BasicLibraries
If NOT oLibs.isLibraryLoaded("Tools") Then oLibs.loadLibrary("Tools")
Dim oLocale as New com.sun.star.lang.Locale
oLocale = GetStarOfficeLocale()
oLocale = ThisComponent.CharLocale
Select Case oLocale.Language
Case "es"
Mensaje = "¿Desea eliminar los rangos de impresión de todas las hojas?"
Case "du"
Mensaje = "Wollen Sie den Druck reicht in alle Blätter entfernen?"
Case "fr"
Mensaje = "Voulez-vous supprimer les zones d'impression dans tous les draps?"
Case "it"
Mensaje = "Vuoi rimuovere gli intervalli di stampa in tutti i fogli?"
Case "pt"
Mensaje = "Você quer remover os intervalos de impressão em todas as folhas?"
Case Else
Mensaje = "Do you want to remove the print ranges in all sheets?"
End Select
End Function

I probe the code and work fine.

Eduardo Moreno
TOKONHU de México

Hi,

For German:

1. ---> Case "du"
I am sure you wanted to write here "de" for German (DEutsch)

2. ---> Mensaje = "Wollen Sie den Druck reicht in alle Blätter entfernen?"
This is really googleish but not real german ;-)

A correct translation would be:
"Wollen Sie die Druckbereiche von allen Blättern entfernen?"
or even better (but longer) translation
"Wollen Sie die Druckbereichs-Einstellungen von allen Blättern entfernen?"

w.

Text should be : "Voulez-vous supprimer les zones d'impression dans toutes les feuilles?"

I remove "oLocale = ThisComponent.CharLocale" line to use UI locale instead of char locale because It can be used for CTL and Asian.

_/|\_ Tantai Thanakanok. Open Source Development Co., Ltd.
Tel: +66 38 311816, Fax: +66 38 773128, http://www.osdev.co.th/