itpmore
asked on
How to remove border around drawings?
We have this program that is printing out drawings from eDrawing or Solidworks, but each time we print there is a border printed around the page about 0.4 inched in on the paper.
I have attached the code used to print drawings.
Can someone please help me figure out if there is something in this code that is causing the drawings to be printed with a border around them?
I have attached the code used to print drawings.
Can someone please help me figure out if there is something in this code that is causing the drawings to be printed with a border around them?
Private Sub PrintJob(ByVal _DocumentNumber As String, ByVal _Scale As String, ByVal _printerDevice As String, ByVal _printerPort As String, ByVal _SheetSize As String, ByVal _PrinterSize As String)
Dim Orientation As EMVPrintOrientation 'Page orientation as defined in EMVPrintOrientation
Dim PaperSize As Integer 'Use Windows printer constants (see Remarks)
Dim PaperLength As Integer 'Custom size in thousandths of an inch, if you are not using a standard paper size
Dim PaperWidth As Integer 'Custom size in thousandths of an inch
Dim Copies As Integer = 1 'Number of copies
Dim Source As Integer 'Paper tray source; use Windows printer constants
Dim Printer As String = _printerPort
Dim TopMargin As Integer 'Top margin in thousandths of an inch or 0 to use printer's margin
Dim BottomMargin As Integer 'Bottom margin in thousandths of an inch or 0 to use printer's margin
Dim LeftMargin As Integer 'Left margin in thousandths of an inch or 0 to use printer's margin
Dim RightMargin As Integer 'Right margin in thousandths of an inch or 0 to use printer's margin
Orientation = EMVPrintOrientation.ePortrait
Select Case UCase(_PrinterSize)
Case "ROLL"
PaperSize = Printing.PaperSourceKind.TractorFeed 'A1
Case "A3", "A4"
PaperSize = Printing.PaperSourceKind.AutomaticFeed
End Select
Select Case _SheetSize
Case "A4"
PaperSize = Printing.PaperKind.A4
PaperLength = 210
PaperWidth = 297
Orientation = EModelView.EMVPrintOrientation.ePortrait
Case "A3"
If _PrinterSize = "A4" Then
PaperSize = Printing.PaperKind.A4
PaperLength = 0
PaperWidth = 0
Else
PaperSize = Printing.PaperKind.A3
PaperLength = 210
PaperWidth = 297
End If
Orientation = EModelView.EMVPrintOrientation.eLandscape
Case "A2"
If _PrinterSize = "A4" Then
PaperSize = Printing.PaperKind.A4
PaperLength = 210
PaperWidth = 297
ElseIf InStr(_PrinterSize, "A3", CompareMethod.Text) > 0 Then
PaperSize = Printing.PaperKind.A3
PaperLength = 420
PaperWidth = 297
Else
PaperSize = Printing.PaperKind.DSheet
PaperLength = 594
PaperWidth = 420
End If
Orientation = EModelView.EMVPrintOrientation.eLandscape
Case "A1"
Select Case _PrinterSize
Case "A4"
PaperSize = Printing.PaperKind.A4
PaperLength = 0 ' (210 / 25.4) * 10000
PaperWidth = 0 '(297 / 27.4) * 1000
Case "A3"
PaperSize = Printing.PaperKind.A3
PaperLength = 420
PaperWidth = 297
Case Else
PaperSize = Printing.PaperKind.ESheet 'DSheet=22 by 34 in
PaperLength = 841 ' 23 * 25.6 '(in*mm)
PaperWidth = 594 ' 36 * 25.6
End Select
Orientation = EModelView.EMVPrintOrientation.eLandscape
End Select
AxEModelViewControl1.SetPageSetupOptions(Orientation, PaperSize, PaperLength, PaperWidth, Copies, Source, Printer, TopMargin, BottomMargin, LeftMargin, RightMargin)
Dim ShowDialog As Boolean = False 'True to show the Print dialog, false to not
Dim FileName As String = _DocumentNumber 'Document name to show in the printer queue for this eDrawings file (see Remarks)
Dim Shaded As Boolean = False 'True to print shaded, false to not print shaded
Dim DraftQuality As Boolean = False 'True to print draft quality, false to print regular quality
Dim Color As Boolean = False 'True to print in grayscale on black-and-white printers, false to print black and white (lines, edges, and text are black, and shaded data is grayscale)
Dim printType As EMVPrintType 'Scale the eDrawings file as defined in EMVPrintType (see Remarks)
Dim scale As Double 'Scaling factor; this argument is valid only when printType is set to eScaled
Dim centerOffsetX As Integer 'Offset in thousands of an inch; this argument is valid only when printType is set to eScaled
Dim centerOffsetY As Integer 'Offset in thousands of an inch; this argument is valid only when printType is set to eScaled
Dim printAll As Boolean = False 'True to print all pages; false to not
Dim pageFirst As Integer = 1 'Page number of first page to print
Dim pageLast As Integer = 1 'Page number of last page to print
Select Case _SheetSize
Case "A4"
printType = EModelView.EMVPrintType.eOneToOne
Case "A3"
If _PrinterSize = "A4" Then
printType = EModelView.EMVPrintType.eScaleToFit
Else
printType = EModelView.EMVPrintType.eOneToOne
End If
Case "A2"
If _PrinterSize = "A4" Then
printType = EModelView.EMVPrintType.eScaleToFit
ElseIf InStr(_PrinterSize, "A3", CompareMethod.Text) > 0 Then
printType = EModelView.EMVPrintType.eScaleToFit
Else
printType = EModelView.EMVPrintType.eOneToOne
End If
Case "A1"
If _PrinterSize = "A4" Then
printType = EModelView.EMVPrintType.eScaleToFit
ElseIf InStr(_PrinterSize, "A3", CompareMethod.Text) > 0 Then
printType = EModelView.EMVPrintType.eScaleToFit
Else ' A1 Sheet on A1 Plotter
printType = EModelView.EMVPrintType.eOneToOne
End If
End Select
If printType = EModelView.EMVPrintType.eScaled Then
'scale = 2 'scale this
End If
AxEModelViewControl1.Print4(ShowDialog, FileName, Shaded, DraftQuality, Color, printType, scale, centerOffsetX, centerOffsetY, printAll, pageFirst, pageLast)
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.