Foutmelding met afdrukken.

[jpvs]

Private Sub CommandButton4_Click()
CommandButton4.BackColor = RGB(255, 255, 0)
CommandButton3.BackColor = RGB(255, 255, 255)
CommandButton2.BackColor = RGB(255, 255, 255)
CommandButton1.BackColor = RGB(255, 255, 255)
Printen
End Sub

Sub Printen()
    Sheets("AfdrukPagina").Activate
    ActiveWindow.SelectedSheets.PrintOut copies:=2, Collate:=True
End Sub

Krijg een foutmelding op Printen in de eerste macro?
Compileerfout: Er wordt een variabele of procedure verwacht, geen module.

Is dit op een andere manier op te lossen?

Pierre

 

[Ginger]

jpvs, Het lijkt er op dat je je module eenzelfde naam hebt gegeven als je sub-routine (en dan mag niet!). Verander de naam van de module in PrintenModule (of zoiets) en je probleem zou opgelost kunnen zijn.

Groet, Leo

 

[jpvs]

Bedankt Leo, werkt prima.

Pierre