Conversione macro excel in Open Office

[4you]

Salve, ho delle macro excel su foglio ods ma volevo convertirle in basic open office perchéspesso mi da errori. La mia azienda usa ancora la versione 4.0.1. Per esempio quando eseguo la macro per tutti i fogli mi stampa centinaia di fogli con caratteri strani. Chiedevo se qualcuno mi può aiutare nella conversione perché da solo non sono riuscito. In allegato il foglio esempio. GRAZIE

[patel]

le altre stampe funzionano ? ci sono errori nell'ultima sub, l'ho modificata così

Codice: Seleziona tutto

Sub Stampa_sef1()
'
CompatibilityMode(True)
    terapia = MsgBox("Vuoi stampare tutte le terapie ?", vbYesNo)
    If terapia = vbYes Then
	    If Worksheets("Foglio1").[D4] <> ("") Then
    		Sheets("f1").Select
		    ActiveWindow.SelectedSheets.PrintOut Copies:=1
		    Sheets("Foglio1").Select
	    End If
    	If Worksheets("Foglio1").[D5]<> ("") Then
		    Sheets("f2").Select
		    ActiveWindow.SelectedSheets.PrintOut Copies:=1
		    Sheets("Foglio1").Select
	    End If
	 End If	    
End Sub

[4you]

Grazie per la modifica del codice. Volevo chiedere se è meglio convertire il codice VBA in Basic per open office o tenere il Vba come nel file allegato. Grazie

[patel]

se funziona e non devi farci grosse modifiche ti conviene tenerla così