Remove Print Ranges

×

Message d'avertissement

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

Onglets principaux

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

Average: 3.7 (3 votes)

Application:
Calc
Étiquettes:
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
Date de publication:
Mardi, 27 Octobre, 2009 - 08:55
Statistiques
Week: Non suivi - Mois: Non suivi - Année: Non suivi - Timeline
Download extension
System Independent version - All releases
Compatible with OpenOffice 4: Inconnu
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 Plus d'information Download
1.0.1 System Independent 3.4 28/10/2009 - 04:36 Plus d'information Download
1.0.0 System Independent 3.4 27/10/2009 - 11:34 Plus d'information Download
0.9.9 System Independent 3.4 27/10/2009 - 09:21 Plus d'information Download

Commentaires

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/