Re: Printing to Multiple Trays Problem
From: JamesW (anonymous_at_discussions.microsoft.com)
Date: 04/07/04
- Next message: jan: "RE: Visible:=False???"
- Previous message: Jezebel: "Re: Inserting blank page into document"
- In reply to: RWN: "Re: Printing to Multiple Trays Problem"
- Messages sorted by: [ date ] [ thread ]
Date: Wed, 7 Apr 2004 00:56:54 -0700
Thanks for the suggestion. I have tried installing the
driver locally and am still getting the same problem.
Only seems to want to print to tray 1.
James
>-----Original Message-----
>Far from being an expert, but;
>Is the driver installed on the local machine?
>My experience was the same, albeit not printing from a
macro, but I
>couldn't select trays until the driver was installed
locally.
>
>--
>Regards;
>Rob
>----------------------------------------------------------
--------------
>"JamesW" <anonymous@discussions.microsoft.com> wrote in
message
>news:1458d01c41bd9$b587de10$a001280a@phx.gbl...
>> I have the following macro that used to work for our
>> Laserjet 5si however we have changed the printer for a
>> Laserjet 4200 and the macro prints the whole document to
>> tray 1 rather than first page to tray 1 and other pages
to
>> tray 3. Printing to the LJ5N works fine. Any help
would
>> be appreciated.
>>
>> Sub Fourcopy()
>> '
>> ' Fourcopy Macro
>> ' Macro recorded 13/05/97 by Gateway 2000 licensed User
>> '
>> ActivePrinter = "\\admin2000\envhlth_4200tn1"
>> With ActiveDocument.PageSetup
>> .LineNumbering.Active = False
>> .Orientation = wdOrientPortrait
>> .Gutter = InchesToPoints(0)
>> Rem .HeaderDistance = InchesToPoints(0.5)
>> .FooterDistance = InchesToPoints(0.5)
>> .PageWidth = InchesToPoints(8.27)
>> .PageHeight = InchesToPoints(11.69)
>> .FirstPageTray = wdPrinterUpperBin
>> .OtherPagesTray = wdPrinterLowerBin
>> .SectionStart = wdSectionNewPage
>> Rem .OddAndEvenPagesHeaderFooter = False
>> Rem .DifferentFirstPageHeaderFooter = True
>> .VerticalAlignment = wdAlignVerticalTop
>> .SuppressEndnotes = False
>> .MirrorMargins = False
>> End With
>> Application.PrintOut FileName:="",
>> Range:=wdPrintAllDocument, Item:= _
>> wdPrintDocumentContent, Copies:=1, Pages:="",
>> PageType:=wdPrintAllPages, _
>> Collate:=True, Background:=False,
>> PrintToFile:=False
>> If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
>> ActiveWindow.Panes(2).Close
>> End If
>> If ActiveWindow.ActivePane.View.Type = wdNormalView
Or
>> ActiveWindow. _
>> ActivePane.View.Type = wdOutlineView Or
>> ActiveWindow.ActivePane.View.Type _
>> = wdMasterView Then
>> ActiveWindow.ActivePane.View.Type = wdPageView
>> End If
>> ActiveWindow.ActivePane.View.SeekView =
>> wdSeekCurrentPageHeader
>> If Selection.HeaderFooter.IsHeader = True Then
>> ActiveWindow.ActivePane.View.SeekView =
>> wdSeekCurrentPageFooter
>> Else
>> ActiveWindow.ActivePane.View.SeekView =
>> wdSeekCurrentPageHeader
>> End If
>> Selection.ParagraphFormat.Alignment =
>> wdAlignParagraphRight
>> Selection.Font.Size = 8
>> Selection.TypeParagraph
>> Selection.Fields.Add Range:=Selection.Range,
>> Type:=wdFieldEmpty, Text:= _
>> "FILENAME \p ", PreserveFormatting:=True
>> ActiveWindow.ActivePane.View.SeekView =
>> wdSeekMainDocument
>> ActivePrinter = "\\admin2000\envhlth_LJ5N"
>> With ActiveDocument.PageSetup
>> .LineNumbering.Active = False
>> .Orientation = wdOrientPortrait
>> .Gutter = InchesToPoints(0)
>> Rem .HeaderDistance = InchesToPoints(0.5)
>> .FooterDistance = InchesToPoints(0.5)
>> .PageWidth = InchesToPoints(8.27)
>> .PageHeight = InchesToPoints(11.69)
>> .FirstPageTray = wdPrinterLowerBin
>> .OtherPagesTray = wdPrinterLowerBin
>> .SectionStart = wdSectionNewPage
>> Rem .OddAndEvenPagesHeaderFooter = False
>> Rem .DifferentFirstPageHeaderFooter = True
>> .VerticalAlignment = wdAlignVerticalTop
>> .SuppressEndnotes = False
>> .MirrorMargins = False
>> End With
>> Application.PrintOut FileName:="",
>> Range:=wdPrintAllDocument, Item:= _
>> wdPrintDocumentContent, Copies:=1, Pages:="",
>> PageType:=wdPrintAllPages, _
>> Collate:=True, Background:=False,
>> PrintToFile:=False
>> With ActiveDocument.PageSetup
>> .LineNumbering.Active = False
>> .Orientation = wdOrientPortrait
>> .Gutter = InchesToPoints(0)
>> Rem .HeaderDistance = InchesToPoints(0.5)
>> .FooterDistance = InchesToPoints(0.5)
>> .PageWidth = InchesToPoints(8.27)
>> .PageHeight = InchesToPoints(11.69)
>> .FirstPageTray = wdPrinterUpperBin
>> .OtherPagesTray = wdPrinterUpperBin
>> .SectionStart = wdSectionNewPage
>> Rem .OddAndEvenPagesHeaderFooter = False
>> Rem .DifferentFirstPageHeaderFooter = True
>> .VerticalAlignment = wdAlignVerticalTop
>> .SuppressEndnotes = False
>> .MirrorMargins = False
>> End With
>> Application.PrintOut FileName:="",
>> Range:=wdPrintAllDocument, Item:= _
>> wdPrintDocumentContent, Copies:=1, Pages:="",
>> PageType:=wdPrintAllPages, _
>> Collate:=True, Background:=False,
>> PrintToFile:=False
>> ActivePrinter = "\\admin2000\envhlth_LJ5"
>> End Sub
>
>
>.
>
- Next message: jan: "RE: Visible:=False???"
- Previous message: Jezebel: "Re: Inserting blank page into document"
- In reply to: RWN: "Re: Printing to Multiple Trays Problem"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
