Formelproblem

[LBService]

Moin moin,

habe OpenOffice gerade erst installiert und schon der erste Fehler...)
Mit Excel ging es so, in Calc bemängelt er folgende Zeile " .PrintOut Copies:=1, Collate:=True".

Vielleicht hat hier jemand ja ein Tip für mich...

Danke
Mike


Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1
Sub Mai_BeiKlick()
With ActiveSheet
.Columns("D:G").Hidden = True
.Columns("I:O").Hidden = True
.Rows("37:54").Hidden = True
.PrintOut Copies:=1, Collate:=True
.Columns("D:G").Hidden = False
.Columns("I:O").Hidden = False
.Rows("37:54").Hidden = False
End With

End Sub

[turtle47]

Hallo Mike,

ich habe mich mit dem VBA-Suppoort noch nie beschäftigt aber funktioniert folgendes:

Code: Alles auswählen

Option VBASupport 1
Sub Mai_BeiKlick()
	With ActiveSheet
		.Columns("D:G").Hidden = True
		.Columns("I:O").Hidden = True
		.Rows("37:54").Hidden = True
		.Name "Copies" = 1
		.Name "Collate" = True
		.Columns("D:G").Hidden = False
		.Columns("I:O").Hidden = False
		.Rows("37:54").Hidden = False
	End With
End Sub

??

Viel Erfolg.

Jürgen