Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Help me macro Excel problem
again thank you for your time- Thecapri1
- Post #7
- Forum: VBA Visual Basic for Applications (Microsoft)
-
Help me macro Excel problem
ok not it does work the new macro is Private Sub CommandButton1_Click() ActiveSheet.PageSetup.PrintArea = "$a$4:$h$63" If Not Application.Dialogs(xlDialogPrinterSetup).Show Then GoTo Fin: ActiveSheet.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "$a$4:$AA$63" Fin...- Thecapri1
- Post #5
- Forum: VBA Visual Basic for Applications (Microsoft)
-
Help me macro Excel problem
thank you but Docjohn52 it did not work it still doen the same thing for PHV Private Sub CommandButton1_Click() ActiveSheet.PageSetup.PrintArea = "$a$4:$h$63" If Not Application.Dialogs(xlDialogPrinterSetup).Show Then Exit Sub ActiveSheet.PrintOut Copies:=1, Collate:=True...- Thecapri1
- Post #4
- Forum: VBA Visual Basic for Applications (Microsoft)
-
Help me macro Excel problem
Hello sorry to ask you this but i have pass a week to search on the internet and I am not able to find my problem Here the macro Private Sub CommandButton1_Click() ActiveSheet.PageSetup.PrintArea = "$a$1:$h$60" bResponse = Application.Dialogs(xlDialogPrinterSetup).Show If TypeName(response) =...- Thecapri1
- Thread
- Replies: 6
- Forum: VBA Visual Basic for Applications (Microsoft)
