Function

Summary

Sets the metrics in the given printer.

Syntax

set-printer-metrics printer &key left-margin top-margin width height

Description

set-printer-metrics sets the left margin and top margin, and the printable width and printable height, of the given printer. Values outside the bounds of the printer will be corrected.

Example

To set the margins as large as possible:

(let ((metrics (capi:get-printer-metrics printer)))

  (capi:set-printer-metrics printer

     :left-margin 0

     :top-margin 0

     :width

     (capi:printer-metrics-paper-width metrics)

     :height

     (capi:printer-metrics-paper-height metrics)))

Actually this sets the margins to the whole paper size, but the printer driver will move these in to take account of the minimum margins of the device.

See also

get-printer-metrics
set-printer-options
print-dialog