2015-04-28 2 views
0

Поскольку я изучаю Access VBA, мне нужна кодировка для самой правой строки. Это то, что построил код в одной из баз данных, которые я унаследовал от работы, для писем, которые мне нужно создать.Право В большинстве случаев требуется кодирование строки

Все, что я знаю, это то, что мне пришлось уменьшить целое число от 1 до 10 до 1-7, чтобы линии сетки для скрытых полей исчезли, но письмо отсутствует в правой правой вертикальной линии .... Я пробовал от 1 до 8 для целого числа, но получил ошибку.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    Dim lDarkGray As Long: lDarkGray = 3355443 
    Dim lWidth As Long: lWidth = Me.Width 
    Dim lHeight As Long: lHeight = Me.Height 
'left most line 
    Me.Line (0, 0)-Step(0, lHeight), lDarkGray 
'the rest of the vertial lines 
    Dim i As Integer 
    For i = 1 To 7 Step 1 
     Me.Line ((Me("txt" & i).Left + Me("txt" & i).Width), 0)-Step(0, lHeight), lDarkGray 
    Next i 
'bottom lines 
    Me.Line (0, lHeight)-Step(lWidth, 0), lDarkGray 
End Sub 
+0

Это для печати на бумаге 11X17, поэтому выглядит так, что линия должна быть в 16.1 –

ответ

0

Попробуйте выполнить i = от 0 до 7 шагов 1, я думаю, что ctrls индексируются 0?

+0

Не знаете, если я буду следовать за тобой? Я не могу изменить целое число, потому что скрыты поля. Имеют смысл? –

+0

Не правда ли, можете ли вы опубликовать скриншот или что-то вроде вашего макета и кода позади него? Борьба, чтобы визуализировать –

+0

, как я могу опубликовать скриншот здесь? У меня есть 2 скриншота для вас. –