Printing

Hi, can you please help me with this major problem I have,
To print I have added the following code:
- - - - - - - - - - - - - - - - - - - - - - - - - - -
Private Sub Command1_Click()
Dim num As Integer
MsgBox "asdfasdf", vbExclamation, "asdf"
dlgprint.ShowPrinter
If dlgprint.CancelError = True Then
Exit Sub
Else
With Printer
.FontName = "arial"
.FontSize = 14
.FontUnderline = False
Print .Orientation = 2
Printer.Print "asf"
Printer.Print Tab(100); lblitemid; Tab(20);
Printer.Print Tab(100); lbla; Tab(20);
End With
Printer.EndDoc
End If
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - -
By using the 'common dialogue box' this allows for me to have a selections to print x number of coppies, and print lanscape or portrait when the print options pop-up. However when i select 2 coppies or change to landscape, these changes do not occur when i print. Can you please help me with this.