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