Print button in worksheet

[ncexcel]

Hi, i am working on a planning tool for work and I want to make a print button...
I have already made the button but when I press it, it says this: "Run-time error '1004': Method 'PrintOut' of object 'Range' failed"
I coded the button this:

Sub Udskriv()
Range("A1:T21").PrintOut
End Sub

A helping hand would be much appreciated

 

[Marc L]

Hi ! As PrintOut method does very not exist within Range alone so the reason of your error message !​

​

Like you can easily check on VBE side just moving the text cursor on PrintOut statement then hit the F1 key to open the VBA help​

so easy to see this method belongs to a sheet object ...​

​

The best way to learn how it must work : activate the Macro Recorder, setup the range to print within the sheet print options,​

launch the print then stop the Macro Recorder in order to see what is its generated VBA code ...​

​

 

[Logit]

>>> use code - tags <<<

Sub Udskriv()
    With ActiveSheet
        .PageSetup.Orientation = xlPortrait ' or xlLandscape if preferred
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False
        .Range("A1:T21").PrintOut Preview:=True
    End With
End Sub

 

[vletm]

ncexcel​

As written in #2 reply's the 1st line.
You can solve Your challenge with below links:

PageSetup object (Excel)

Office VBA reference topic

learn.microsoft.com

PageSetup.PrintArea property (Excel)

Office VBA reference topic

learn.microsoft.com

or
use the Macro Recorder ... the last line.

 

[ncexcel]

>>> use code - tags <<<

Sub Udskriv()
    With ActiveSheet
        .PageSetup.Orientation = xlPortrait ' or xlLandscape if preferred
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False
        .Range("A1:T21").PrintOut Preview:=True
    End With
End Sub

Thank you! That worked for me