Print area - Message box

  • Thread starter Thread starter al
  • Start date Start date
A

al

Can someone correct macro below pls - why is my "false" input not
working - thxs


Sub Printseuplandscape()
'
'
Dim Fitp
Application.ScreenUpdating = False
'
ActiveSheet.Pagesetup.PrintArea = ActiveRange
With ActiveSheet.Pagesetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.Pagesetup.PrintArea = Selection.Address
With ActiveSheet.Pagesetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&D-&T"
.CenterFooter = "&P of &N"
.RightFooter = "&Z&F-&F-&A"
 
It looks like your trying to use a string where a boolean value is
required.

Sub Printseuplandscape()
'
'
Dim Fitpg
Application.ScreenUpdating = False
'
'ActiveSheet.PageSetup.PrintArea = ActiveRange
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
' .LeftHeader = ""
' .CenterHeader = ""
' .RightHeader = ""
.LeftFooter = "&D-&T"
.CenterFooter = "&P of &N"
.RightFooter = "&Z&F-&F-&A"
.FitToPagesWide = 1


Fitpg = Application.InputBox _
(Prompt:="To fit to 1 page type 1, otherwise click cancel",
Default:="", Title:="Fit to page tall", Type:=1)


.FitToPagesTall = Fitpg
' .PrintErrors = xlPrintErrorsDisplayed
End With
Application.ScreenUpdating = True
End Sub

Keep an eye on your spelling also.

Cliff Edwards
 
It looks like your trying to use a string where a boolean value is
required.

Sub Printseuplandscape()
'
'
Dim Fitpg
Application.ScreenUpdating = False
'
'ActiveSheet.PageSetup.PrintArea = ActiveRange
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = Selection.Address
With ActiveSheet.PageSetup
' .LeftHeader = ""
' .CenterHeader = ""
' .RightHeader = ""
.LeftFooter = "&D-&T"
.CenterFooter = "&P of &N"
.RightFooter = "&Z&F-&F-&A"
.FitToPagesWide = 1

Fitpg = Application.InputBox _
(Prompt:="To fit to 1 page type 1, otherwise click cancel",
Default:="", Title:="Fit to page tall", Type:=1)

.FitToPagesTall = Fitpg
' .PrintErrors = xlPrintErrorsDisplayed
End With
Application.ScreenUpdating = True
End Sub

Keep an eye on your spelling also.

Cliff Edwards
Click to expand...

i know its wrong but What correction do i need to make for it to work??
 
Or as ward376 indicated, just set the Default as "", rather than the
"False" you had entered.
 
as user only has two choices (yes or no) try using a message box.

Sub Printseuplandscape()

Dim Fitp As Variant
Application.ScreenUpdating = False

With ActiveSheet

.PageSetup.PrintArea = ActiveRange

With .PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With

.PageSetup.PrintArea = Selection.Address

With .PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = "&D-&T"
.CenterFooter = "&P of &N"
.RightFooter = "&Z&F-&F-&A"
.FitToPagesWide = 1

msg = MsgBox("Do you want to Fit to one page?", 36, "Page setUp")

If msg = 6 Then
fitpg = 1
Else
fitpg = False
End If

.FitToPagesTall = fitpg
.PrintErrors = xlPrintErrorsDisplayed

End With

End With
Application.ScreenUpdating = True
End Sub
 
Back
Top