Print API question

Anonymous · ‎03-12-2002

I've some problems with the control of the Windows
printer regarding Landscape and Portrait, the example below is a test of the of
DrawingPrintManager
property Orientation, changing the orientation has no effect in the
code?

I may have misunderstood the possibility in the
DrawingPrintManager so
I would appreciate if anyone could clarify the usage of the
object.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">My goal is to make a "poor man"
PDF saver (with GhostScript) that generate a PDF file when the drawing is
saved.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">-Patrick

Public Sub PrintTest()

    ' Set a reference to the print
manager object of the active document.
    ' This will fail if
a drawing document is not active.
    Dim oPrintMgr As
DrawingPrintManager
    Set oPrintMgr =
ThisApplication.ActiveDocument.PrintManager


    ' Set to print in Gray

    oPrintMgr.ColorMode =
kPrintGrayScale

    ' Set to
print one copy
    oPrintMgr.NumberOfCopies =
1


' Set the paper size.
    oPrintMgr.PaperSize =
kPaperSizeA4

    ' Set the Windows
printer name
    oPrintMgr.Printer = "EPSON Stylus Photo
750"

    ' Set to
print all sheets.
    oPrintMgr.PrintRange =
kPrintAllSheets

    ' Set to print full
scale.
    oPrintMgr.ScaleMode =
kPrintFullScale


' Set to print using portrait orientation.

oPrintMgr.Orientation = kPortraitOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint


' Set to print using landscape orientation.

oPrintMgr.Orientation = kLandscapeOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint

End Sub

Anonymous · ‎03-12-2002

Correction to the description:

.....Orientation, changing the orientation in the
code has no effect on the print?

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Patrick de Stobbeleir" <
href="mailto:[email protected]">[email protected]> wrote in message
href="news:[email protected]">news:9C9E859EB7EB589679FCF13EBD0......

I've some problems with the control of the
Windows printer regarding Landscape and Portrait, the example below is a test
of the of
title="DrawingPrintManager Object">DrawingPrintManager property
Orientation, changing the orientation has no effect in the
code?

I may have misunderstood the possibility in the
DrawingPrintManager
so I would appreciate if anyone could clarify the usage of the
object.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">My goal is to make a "poor man"
PDF saver (with GhostScript) that generate a PDF file when the drawing is
saved.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">-Patrick

Public Sub PrintTest()

    ' Set a reference to the print
manager object of the active document.
    ' This will fail
if a drawing document is not active.
    Dim oPrintMgr As
DrawingPrintManager
    Set oPrintMgr =
ThisApplication.ActiveDocument.PrintManager


    ' Set to print in Gray

    oPrintMgr.ColorMode =
kPrintGrayScale

    ' Set to
print one copy
    oPrintMgr.NumberOfCopies =
1


' Set the paper size.
    oPrintMgr.PaperSize =
kPaperSizeA4

    ' Set the Windows
printer name
    oPrintMgr.Printer = "EPSON Stylus Photo
750"

    ' Set to
print all sheets.
    oPrintMgr.PrintRange =
kPrintAllSheets

    ' Set to print
full scale.
    oPrintMgr.ScaleMode =
kPrintFullScale


' Set to print using portrait orientation.

oPrintMgr.Orientation = kPortraitOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint


' Set to print using landscape orientation.

oPrintMgr.Orientation = kLandscapeOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint

End Sub

Anonymous · ‎05-15-2002

Patrick,

I've verified this problem and have filed a
defect. Unfortunately it's too late to fix it for 5.3 SP2.

-Brian

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Patrick de Stobbeleir" <
href="mailto:[email protected]">[email protected]> wrote in message
href="news:[email protected]">news:B26CCF82EC236503FAB3DA7379D......

Correction to the description:

.....Orientation, changing the orientation in the
code has no effect on the print?

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Patrick de Stobbeleir" <
href="mailto:[email protected]">[email protected]> wrote in message
href="news:[email protected]">news:9C9E859EB7EB589679FCF13EB......

I've some problems with the control of the
Windows printer regarding Landscape and Portrait, the example below is a
test of the of
title="DrawingPrintManager Object">DrawingPrintManager property
Orientation, changing the orientation has no effect in the
code?

I may have misunderstood the possibility in the
DrawingPrintManager
so I would appreciate if anyone could clarify the usage of the
object.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">My goal is to make a "poor man"
PDF saver (with GhostScript) that generate a PDF file when the drawing
is saved.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">-Patrick

Public Sub PrintTest()

    ' Set a reference to the
print manager object of the active document.
    ' This
will fail if a drawing document is not active.
    Dim
oPrintMgr As DrawingPrintManager
    Set oPrintMgr =
ThisApplication.ActiveDocument.PrintManager


    ' Set to print in Gray

    oPrintMgr.ColorMode =
kPrintGrayScale

    ' Set to
print one copy
    oPrintMgr.NumberOfCopies =
1


' Set the paper size.
    oPrintMgr.PaperSize =
kPaperSizeA4

    ' Set the Windows
printer name
    oPrintMgr.Printer = "EPSON Stylus Photo
750"

    ' Set to
print all sheets.
    oPrintMgr.PrintRange =
kPrintAllSheets

    ' Set to print
full scale.
    oPrintMgr.ScaleMode =
kPrintFullScale


' Set to print using portrait
orientation.
    oPrintMgr.Orientation =
kPortraitOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint


' Set to print using landscape orientation.

oPrintMgr.Orientation = kLandscapeOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint

End
Sub

Anonymous · ‎05-15-2002

Thanks for letting me know, Brian.

As a workaround bonus for me it has forced me to
learn all about DEVMODE to control all the printer properties and by doing this
I've made the adding to work.

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Brian Ekins" <
href="mailto:[email protected]">[email protected]> wrote
in message
href="news:[email protected]">news:1FC7B7169458927FDC3E8C15F03......

Patrick,

I've verified this problem and have filed a
defect. Unfortunately it's too late to fix it for 5.3 SP2.

-Brian

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Patrick de Stobbeleir" <
href="mailto:[email protected]">[email protected]> wrote in message
href="news:[email protected]">news:B26CCF82EC236503FAB3DA737......

Correction to the description:

.....Orientation, changing the orientation in
the code has no effect on the print?

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Patrick de Stobbeleir" <
href="mailto:[email protected]">[email protected]> wrote in message

href="news:[email protected]">news:9C9E859EB7EB589679FCF13......

I've some problems with the control of the
Windows printer regarding Landscape and Portrait, the example below is a
test of the of
title="DrawingPrintManager Object">DrawingPrintManager property
Orientation, changing the orientation has no effect in the
code?

I may have misunderstood the possibility in
the
title="DrawingPrintManager Object">DrawingPrintManager so I would
appreciate if anyone could clarify the usage of the
object.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">My goal is to make a "poor man"
PDF saver (with GhostScript) that generate a PDF file when the
drawing is saved.

title="DrawingPrintManager Object">

title="DrawingPrintManager Object">-Patrick

Public Sub PrintTest()

    ' Set a reference to the
print manager object of the active document.
    ' This
will fail if a drawing document is not active.
    Dim
oPrintMgr As DrawingPrintManager
    Set oPrintMgr =
ThisApplication.ActiveDocument.PrintManager


    ' Set to print in Gray

    oPrintMgr.ColorMode =
kPrintGrayScale

    ' Set to
print one copy
    oPrintMgr.NumberOfCopies =
1


' Set the paper size.
    oPrintMgr.PaperSize =
kPaperSizeA4

    ' Set the
Windows printer name
    oPrintMgr.Printer = "EPSON
Stylus Photo 750"


    ' Set to print all sheets.

oPrintMgr.PrintRange = kPrintAllSheets


    ' Set to print full scale.

oPrintMgr.ScaleMode =
kPrintFullScale


' Set to print using portrait
orientation.
    oPrintMgr.Orientation =
kPortraitOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint


' Set to print using landscape orientation.

oPrintMgr.Orientation =
kLandscapeOrientation


    ' Submit the print.

oPrintMgr.SubmitPrint

End
Sub

Community

Print API question

Print API question

Print API question