Printform

rvanbrandenburg

New Member
Joined
Sep 28, 2006
Messages
1
I'm trying to make a printform where you can select different ranges.
For example:

I activate the dialog where you can make a selection of diferent area's (selectionbox). Then:

Sub printmacro()
DialogSheets("dialog1").Show 'shows dialogbox
End Sub
Sub printselection()
If DialogSheets("dialoog1").CheckBoxes(1).Value = 1 Then 'if this area is selected then print this after OK
Range("printarea1").printout
End If
If DialogSheets("dialoog1").CheckBoxes(2).Value = 1 Then
Range("printarea2").printout
End If
If DialogSheets("dialoog1").CheckBoxes(3).Value = 1 Then
Range("printarea3").printout
End If
If DialogSheets("dialoog1").CheckBoxes(4).Value = 1 Then
Range("printarea4").printout
End If
End Sub

Somehow if i click okay it doesn't work. Can somebody help me??
 

Some videos you may like

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

Watch MrExcel Video

Forum statistics

Threads
1,114,381
Messages
5,547,608
Members
410,802
Latest member
DataMgmtAnalyst7
Top