Cita:
Iniciado por jcnalda 
De antemano gracias por las respuestas.
¿mi pregunta es ?puedes colgar un ejemplo con imputbox para verlo.?
gracias
Quise decir OptionButton
Private Sub OptionButton1_Click()
Application.ScreenUpdating = False
Sheets("Hoja2").Activate
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.Range("A1:B9").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$9"
Sheets("Hoja3").Select
Application.ScreenUpdating = True
End Sub
Te marca el area de impresion a imprimir
Luego usas el codigo del CmmandButton
Private Sub CommandButton1_Click()
Sheets("Hoja2").Activate
With ActiveSheet.PageSetup
ActiveWindow.SelectedSheets.PrintPreview
.Orientation = xlPortrait 'xlLandscape
.PaperSize = xlPaperA4 'formato A4
.BlackAndWhite = False 'incluir colores o no
.FitToPagesWide = 1 'reduce el tamaño de la hoja (ancho)
.FitToPagesTall = 1 'reduce el tamaño de la hoja (alto)
.CenterHorizontally = True 'centrar horizontalmente
End With
ActiveWindow.Selection.PrintOut Copies:=1, Collate:=True
End Sub
Yo mismo hice la prueba y funciona a miles pero, LA OPCION QUE DA CACHO ES LAS MAS VIABLE pues no tienes que poblar la hoja con tantos chekbox o optionbotton.
Pasa que, si quieres usar la segunda via luego de agotada la cantidad de celdas en las A y B (A:A llegar hasta la 500 0 5000) y usar otra nueva (A:D), hay que hacer cambio en el codigo, cambiar A:A por A:D y en la hoja seria;
A1 en D1 numeracion en la celdas D2
y en E2 la segunda numeracion
A la de cacho solo le agrege la linea roja
ActiveWindow.SelectedSheets.PrintPreview
c.Resize(9, 2).PrintOut Copies:=1, Collate:=True 'C.Resize(9, 2) corresponden a (9 # de lineas y 2) # de columnas a imprimir
Set c = Nothing
End Sub
Lo que si me di cuenta es que imprime de la hoja1, la columna A y no la hoja2 con la respectiva seleccion de A1 o A2, ect ect