VBA: Print spreadsheet

Hi,

Ich verwende MS Office 07 und VBA 6.5 und würde gern den Inhalt eines Spreadsheets auf Knopfdruck ausdrucken.

Ich habe auf einem userform ein spreadsheet (Microsoft Office spreadsheet 10) und möchte gern den INhalt von Zelle A170 ausdrucken.

Ich habe folgendes gefunden:

Dim objXL As Excel.Application
Dim wBk As Workbook, wSht As Worksheet

Set objXL = CreateObject("Excel.Application")
objXL.Visible = False
Set wBk = objXL.Workbooks.Add
Set wSht = wBk.Worksheets(1)

With wSht.PageSetup

.PrintArea = "$A$1:$D$60"
.PaperSize = xlPaperLegal
.PrintGridlines = True
'.Orientation = xlLandscape

End With
wSht.Range("A1:c20") = Spreadsheet1.Range("A1:C20")
wSht.PrintOut
'objXL.Visible = True


Jedoch klappt das leider nicht.

Habs mir zusammengebastelt ;-)

Sheets("results_pro_print").Select
Range("A174").Value = Spreadsheet1.Range("A174").Value

Worksheets("results_pro_print").Columns("A").ColumnWidth = 23.11
Worksheets("results_pro_print").Columns("B").ColumnWidth = 15
Worksheets("results_pro_print").Columns("C").ColumnWidth = 15
Worksheets("results_pro_print").Columns("D").ColumnWidth = 15



Range("A174").Select
With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
.PaperSize = xlPaperLetter
.Orientation = xlPortrait
.LeftMargin = Application.InchesToPoints(0.5)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(0.5)
.BottomMargin = Application.InchesToPoints(0.5)

End With
Selection.PrintOut Copies:=1


Also er schreibt die Werte nochmals in ein anderes Sheet. Habe es nicht hinbekommen auf das spreadsheet im form zuzugreifen.