Snasui Excel Forum

Code: Select all

Worksheets("data1").Range("d4").Value = Worksheets("fdata").Range("d4")
    Worksheets("data1").Range("f4").Value = Worksheets("fdata").Range("f4")
    Worksheets("data1").Range("d5").Value = Worksheets("fdata").Range("d5")
    Worksheets("data1").Range("d6").Value = Worksheets("fdata").Range("d6")
    Worksheets("data1").Range("d7").Value = Worksheets("fdata").Range("d7")
    Worksheets("data1").Range("f6").Value = Worksheets("fdata").Range("f6")
    Worksheets("data1").Range("f7").Value = Worksheets("fdata").Range("f7")
    Worksheets("data1").Range("d8").Value = Worksheets("fdata").Range("d8")
      Worksheets("data1").Range("d10").Value = Worksheets("fdata").Range("d10")
      Worksheets("data1").Range("d11").Value = Worksheets("fdata").Range("d11")
    Worksheets("data1").Range("d12").Value = Worksheets("fdata").Range("d12")
    Worksheets("data1").Range("f10").Value = Worksheets("fdata").Range("f10")
    Worksheets("data1").Range("f11").Value = Worksheets("fdata").Range("f11")
    Worksheets("data1").Range("f12").Value = Worksheets("fdata").Range("f12")
    Worksheets("data1").Range("h10").Value = Worksheets("fdata").Range("h10")
    Worksheets("data1").Range("h11").Value = Worksheets("fdata").Range("h11")
   Worksheets("data1").Range("h12").Value = Worksheets("fdata").Range("h12")
    Worksheets("data1").Range("d14").Value = Worksheets("fdata").Range("d14")
    Worksheets("data1").Range("d15").Value = Worksheets("fdata").Range("d15")
    Worksheets("data1").Range("f14").Value = Worksheets("fdata").Range("f14")
   Worksheets("data1").Range("f15").Value = Worksheets("fdata").Range("f15")
    Worksheets("data1").Range("h14").Value = Worksheets("fdata").Range("h14")
    Worksheets("data1").Range("h15").Value = Worksheets("fdata").Range("h15")
    Worksheets("data1").Range("d19").Value = Worksheets("fdata").Range("d19")
    Worksheets("data1").Range("i16").Value = Worksheets("fdata").Range("i16")
    Worksheets("data1").Range("j16").Value = Worksheets("fdata").Range("j16")
    Worksheets("data1").Range("i19").Value = Worksheets("fdata").Range("i19")

Code: Select all

Application.Calculation = xlCalculationManual
'Your code
Application.Calculation = xlCalculationAutomatic

Code: Select all

Sub go_print1()
    Sheets("print1").Select
Application.Calculation = xlCalculationManual
     Range("12:12,16:16,21:21").Select
    Selection.RowHeight = 112.5
    With ActiveSheet.PageSetup
        .BlackAndWhite = False 
        .Zoom = False
    End With
    Application.Calculation = xlCalculationAutomatic
ActiveWindow.SelectedSheets.PrintPreview
Range("A1").Select
End Sub

Code: Select all

	Range("12:12,16:16,21:21").Select
    	Selection.RowHeight = 112.5