Its pretty easy, just reference corel 11 then call it in VB here is some example code for a console app that I made a while ago.. I yanked out the most of it but left in the startup, opening, text replacing and closing/pdf output code so you can see how everything works.
Sub Main(ByVal args() As String)
Dim App As CorelDRAW.Application
Dim doc As CorelDRAW.Document
App = CreateObject("CorelDRAW.Application.11"
'App.Visible = True
App.Optimization = True
doc = App.OpenDocument("C:\templates\template7.cdr"
Dim x
' Front Page Modifcations (this template has mulitple pages)
x = TextReplacer(doc, p_name, 1, "p_name"
' File saving and output to PDF
Dim opt As New CorelDRAW.StructSaveAsOptions()
opt.EmbedICCProfile = False
opt.EmbedVBAProject = False
opt.IncludeCMXData = False
opt.Overwrite = True
opt.Range = 0
opt.ThumbnailSize = 3
opt.Version = 11
doc.SaveAs(("c:\!brochures\" & p_state & "-" & p_name & " (" & p_id & "
" & ".cdr"
, opt)
' Dump to PDF
With doc.PDFSettings
.Author = "Equity One, Inc. (2003) Lores"
.ColorMode = CorelDRAW.pdfColorMode.pdfNative
.ComplexFillsAsBitmaps = True
.DownsampleColor = True
'.DownsampleGray = True
'.DownsampleMono = True
.ColorResolution = 150
'.GrayResolution = 150
'.MonoResolution = 150
.BitmapCompression = CorelDRAW.pdfBitmapCompressionType.pdfZIP
'.JPEGQualityFactor = 98
.EmbedBaseFonts = True
.EmbedFonts = True
.SubsetFonts = True
.SubsetPct = 80
.TextAsCurves = True
.TrueTypeToType1 = True
End With
doc.PublishToPDF("c:\!brochures\" & p_state & "-" & p_name & " (" & p_id & "
" & "(lo-res).pdf"
App.Optimization = False
end sub
Private Function TextReplacer(ByVal Doc As CorelDRAW.Document, ByVal NewText As String, ByVal pagenum As Long, ByVal ObjectIDx As String)
Dim s As CorelDRAW.Shape
If NewText = "" Then NewText = "N/A"
If NewText = vbNullChar Then NewText = "N/A"
For Each s In Doc.Pages(pagenum).FindShapes(Name:=ObjectIDx, Type:=CorelDRAW.cdrShapeType.cdrTextShape)
s.Text.Contents = NewText
Next s
End Function
).