Remove Print Ranges

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