OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 18-03-2006, 00:45
Posts: n/a
Default I need print select object with my printer and my parameters.

Please code
I need print select object with my printer and my parameters.
I wont paste code with properties my printer (driver - trotec.dll)

Sub Print_Trotec()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
With ActiveDocument.PrintSettings
.SelectPrinter "TrotecEngraver v8.0.5.2"
.PrintRange = prnSelection
End With
End Sub

Sorry, I'm from Poland
Reply With Quote
Old 20-03-2006, 08:09
ddonnahoe's Avatar
ddonnahoe ddonnahoe is offline
Senior Member
Join Date: Jan 2004
Location: Louisville, KY
Posts: 552
Send a message via ICQ to ddonnahoe Send a message via AIM to ddonnahoe Send a message via MSN to ddonnahoe Send a message via Yahoo to ddonnahoe

Here is a snippet of code from one of my macros that you may be able to "tweak" for your needs...
If SendToLaser.Value = True Then
        Dim prn2 As Printer
        Dim j As Long
        Set prn2 = Nothing
        For j = 1 To Printers.Count
           If Printers(j).Name = "GCC Elite XL 20/600 v3.31" Then
                Set prn2 = Printers(j)
                Exit For
            End If
        Next j
        If prn2 Is Nothing Then
            MsgBox "Printer not found", vbCritical
           Set ActiveDocument.PrintSettings.Printer = prn2
           ActiveDocument.PrintSettings.Copies = 1
        End If

        ActiveDocument.PrintSettings.Copies = 1
        ActiveDocument.PrintSettings.PageRange = "1"
    End If
There is a checkbox on my form. That is why the code starts with "If SendToLaser.Value = True Then"
Waiting for a ride in the T.A.R.D.I.S.
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Object colors on print do not match those on screen Alex FAQ 1 06-06-2005 21:02
Local Printer Selection ddonnahoe CorelDRAW/Corel DESIGNER VBA 2 13-01-2004 07:36
VBA Select Printer? Jon Lorber CorelDRAW/Corel DESIGNER VBA 1 12-12-2003 09:36

All times are GMT -5. The time now is 02:54.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com