Public Sub GetPrinterResolution()
Dim sResultPath, sResultRow As String
Dim iPosition As Integer
Shell "locate -b *.ppd | grep " & myPrinter.Name To sResultPath
Shell "grep '*DefaultResolution:' " & sResultPath To sResultRow
iPosition = InStr(sResultRow, Chr(58))
iPrinterDPI = Mid(sRe
Le 30/09/2012 12:14, Tobias Boege a écrit :
> Hi Benoit and Printer people,
>
> Hans delved into the Printer class and concluded that there are actually
> three Printer examples needed:
> (1) Text
> (2) Pictures
> (3) Drawings
> Because printing those are somewhat different processes.
>
> He wrote
On Sun, 30 Sep 2012, Tobias Boege wrote:
> Hi Benoit and Printer people,
>
> Hans delved into the Printer class and concluded that there are actually
> three Printer examples needed:
> (1) Text
> (2) Pictures
> (3) Drawings
> Because printing those are somewhat different processes.
>
> He wrote a
Hi Benoit and Printer people,
Hans delved into the Printer class and concluded that there are actually
three Printer examples needed:
(1) Text
(2) Pictures
(3) Drawings
Because printing those are somewhat different processes.
He wrote a class to address (2) - it's attached - and would like to hea