OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 18-03-2006, 00:45
ajacques
Guest
 
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
ActiveDocument.PrintOut
End Sub


Sorry, I'm from Poland
ajacques
Reply With Quote
  #2  
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
Default

Here is a snippet of code from one of my macros that you may be able to "tweak" for your needs...
Code:
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
        Else
           Set ActiveDocument.PrintSettings.Printer = prn2
           ActiveDocument.PrintSettings.Copies = 1
        End If

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


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 07:23.


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