VBA - not printing correctly

[leemcder]

Hi, I am running a VBA in excel, I have a list of documents that the VBA finds and prints without me having to open and print each document individually. All of the documents are in .XLS format. When I run the macro, the sheet prints but it is too small, more like A5 size rather than A4. If I print the file manually, it prints correctly. Below is a copy of the script I am running. Can anyone please help me and tell me how I can get the sheets to print full A4 page? Many thanks

Sub PrintFiles()
Dim oFSO As Object
Dim lngLastRow As Long
Dim lngIndex As Long
Dim strFname As String
Dim xlSheet As Worksheet
Dim xlWB As Workbook
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set xlSheet = ActiveSheet
With xlSheet
lngLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For lngIndex = 1 To lngLastRow
strFname = .Range("A" & lngIndex)
If oFSO.FileExists(strFname) Then
'If oFSO.FileExists("C:\Path" & strFname) Then
'If oFSO.FileExists("C:\Path" & strFname & ".xls") Then
Set xlWB = Workbooks.Open(strFname)
'Set xlWB = Workbooks.Open("C:\Path" & strFname)
'Set xlWB = Workbooks.Open("C:\Path" & strFname& ".xls")
xlWB.Sheets(1).UsedRange.PrintOut
xlWB.Close savechanges:=False
Else
.Range("A" & lngIndex).Interior.Color = &H80FFFF
End If
Next lngIndex
End With
lbl_Exit:
Set oFSO = Nothing
Set xlSheet = Nothing
Set xlWB = Nothing
Exit Sub
End Sub​

 

[HackSlash]

Use the macro recorder to record yourself printing the page with the correct options. Then stop recording. Go in to VBA and look at the code it generated. Just take out the line that does the print. This way, you know all the options are set correctly. Modify that line to fit in to your existing macro.

http://www.contextures.com/excel-macro-record-test.html