Advertisement

09.25.2008 at 02:18PM PDT, ID: 23764344 | Points: 500
[x]
Attachment Details

Defining printer/fax to send the document with VB6 using crystal reports API

Asked by danwendt1 in Visual Basic Programming, Crystal Reports Software, Printers

Tags: , ,

Hello everyone and thanks for looking.

I already have the code for printing a document to a default printer, what I am looking for is to use some kind method to define different, not default printer/fax manually, using Crystal reports XI API for VB6...  What I have tried to do was use Report.SelectPrinter method (shown in the code) but it gives me a compile error. Does anybody have any ideas.
Thanks in advance

And here is the code which does not compile by the way, u can see my pathetic attempt in line 261 (thats "DriverName", "FaxName", "Port"... :)Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:
461:
462:
463:
464:
465:
466:
467:
468:
469:
470:
471:
472:
473:
474:
475:
476:
477:
478:
479:
480:
481:
482:
483:
484:
485:
486:
487:
488:
489:
490:
491:
492:
493:
494:
495:
496:
497:
498:
499:
500:
501:
502:
503:
504:
505:
506:
507:
508:
509:
510:
511:
512:
513:
514:
515:
516:
517:
518:
519:
520:
521:
522:
523:
524:
525:
526:
527:
528:
529:
530:
531:
532:
533:
534:
535:
536:
537:
538:
539:
540:
541:
542:
543:
544:
545:
546:
547:
548:
549:
550:
551:
552:
553:
554:
555:
556:
557:
558:
559:
560:
561:
562:
563:
564:
565:
566:
567:
568:
569:
570:
571:
572:
573:
574:
575:
576:
577:
578:
579:
580:
581:
582:
583:
584:
585:
586:
587:
588:
589:
590:
591:
592:
593:
594:
595:
596:
597:
598:
599:
600:
601:
602:
603:
604:
605:
606:
607:
608:
609:
610:
611:
612:
613:
614:
615:
616:
617:
618:
619:
620:
621:
622:
623:
624:
625:
626:
627:
628:
629:
630:
631:
632:
633:
634:
635:
636:
637:
638:
639:
640:
641:
642:
643:
644:
645:
646:
647:
648:
649:
650:
651:
652:
653:
654:
655:
656:
657:
658:
659:
660:
661:
662:
663:
664:
665:
666:
667:
668:
669:
670:
671:
672:
673:
674:
675:
676:
677:
678:
679:
680:
681:
682:
683:
684:
685:
686:
687:
688:
689:
690:
691:
692:
693:
694:
695:
696:
697:
698:
699:
700:
701:
702:
703:
704:
705:
706:
707:
708:
709:
710:
711:
712:
713:
714:
715:
716:
717:
718:
719:
720:
721:
722:
723:
724:
725:
726:
727:
728:
729:
730:
731:
732:
733:
734:
735:
736:
737:
738:
739:
740:
741:
742:
743:
744:
745:
746:
747:
748:
749:
750:
751:
752:
753:
754:
755:
756:
757:
758:
759:
760:
761:
762:
763:
764:
765:
766:
767:
768:
769:
770:
771:
772:
773:
774:
775:
776:
777:
778:
779:
780:
781:
782:
783:
784:
785:
786:
787:
788:
789:
790:
791:
792:
793:
794:
795:
796:
797:
798:
799:
800:
801:
802:
803:
804:
805:
806:
807:
808:
809:
810:
811:
812:
813:
814:
815:
816:
817:
818:
819:
820:
821:
822:
823:
824:
825:
826:
827:
828:
829:
830:
831:
832:
833:
834:
835:
836:
837:
838:
839:
840:
841:
842:
843:
844:
845:
846:
847:
848:
849:
850:
851:
852:
853:
854:
855:
856:
857:
858:
859:
860:
861:
862:
863:
864:
865:
866:
867:
868:
869:
870:
871:
872:
873:
874:
875:
876:
877:
878:
879:
880:
881:
882:
883:
884:
885:
886:
887:
888:
889:
890:
891:
892:
893:
894:
895:
896:
897:
898:
899:
900:
901:
902:
903:
904:
905:
906:
907:
908:
909:
910:
911:
912:
913:
914:
915:
916:
917:
918:
919:
920:
921:
922:
923:
924:
925:
926:
927:
928:
929:
930:
931:
932:
933:
934:
935:
936:
937:
938:
939:
940:
941:
942:
943:
944:
945:
946:
947:
948:
949:
950:
951:
952:
953:
954:
955:
956:
957:
958:
959:
960:
961:
962:
963:
964:
965:
966:
967:
968:
969:
970:
971:
972:
973:
974:
975:
976:
977:
978:
979:
980:
981:
982:
983:
984:
985:
986:
987:
988:
989:
990:
991:
992:
993:
994:
995:
996:
997:
998:
999:
1000:
1001:
1002:
1003:
1004:
1005:
1006:
1007:
1008:
1009:
1010:
1011:
1012:
1013:
1014:
1015:
1016:
1017:
1018:
1019:
1020:
1021:
1022:
1023:
1024:
1025:
1026:
1027:
1028:
1029:
1030:
1031:
1032:
1033:
1034:
1035:
1036:
1037:
1038:
1039:
1040:
1041:
1042:
1043:
1044:
1045:
1046:
1047:
1048:
1049:
1050:
1051:
1052:
1053:
1054:
1055:
1056:
1057:
1058:
1059:
1060:
1061:
1062:
1063:
1064:
1065:
1066:
1067:
1068:
1069:
1070:
1071:
1072:
1073:
1074:
1075:
1076:
1077:
1078:
1079:
1080:
1081:
1082:
1083:
1084:
1085:
1086:
1087:
1088:
1089:
1090:
1091:
1092:
1093:
1094:
1095:
1096:
1097:
1098:
1099:
1100:
1101:
1102:
1103:
1104:
1105:
1106:
1107:
1108:
1109:
1110:
1111:
1112:
1113:
1114:
1115:
1116:
1117:
1118:
1119:
1120:
1121:
1122:
1123:
1124:
1125:
1126:
1127:
1128:
1129:
1130:
1131:
1132:
1133:
1134:
1135:
1136:
1137:
1138:
1139:
1140:
1141:
1142:
1143:
1144:
1145:
1146:
1147:
1148:
1149:
1150:
1151:
1152:
1153:
1154:
1155:
1156:
1157:
1158:
1159:
1160:
1161:
1162:
1163:
1164:
1165:
1166:
1167:
1168:
1169:
1170:
1171:
1172:
1173:
1174:
1175:
1176:
1177:
1178:
1179:
1180:
1181:
1182:
1183:
1184:
1185:
1186:
1187:
1188:
1189:
1190:
1191:
1192:
1193:
1194:
1195:
1196:
1197:
1198:
1199:
1200:
1201:
1202:
1203:
1204:
1205:
1206:
1207:
1208:
1209:
1210:
1211:
1212:
1213:
1214:
1215:
1216:
1217:
1218:
1219:
1220:
1221:
1222:
1223:
1224:
1225:
1226:
1227:
1228:
1229:
1230:
1231:
1232:
1233:
1234:
1235:
1236:
1237:
1238:
1239:
1240:
1241:
1242:
1243:
1244:
1245:
1246:
1247:
1248:
1249:
1250:
1251:
1252:
1253:
1254:
1255:
1256:
1257:
1258:
1259:
1260:
1261:
1262:
1263:
1264:
1265:
1266:
1267:

'  03/25/04 - VKG - Call WD? V9.2A and above
'                   delay command added.
'  03/28/06 - VKG - WD7046 V9.30
'                   Page setup logic suppressed
 
Public Const INVALID_HANDLE_VALUE = -1
Public Const MAX_PATH = 260
 
Public Type FILETIME
   dwLowDateTime As Long
   dwHighDateTime As Long
End Type
 
Public Type WIN32_FIND_DATA
   dwFileAttributes As Long
   ftCreationTime As FILETIME
   ftLastAccessTime As FILETIME
   ftLastWriteTime As FILETIME
   nFileSizeHigh As Long
   nFileSizeLow As Long
   dwReserved0 As Long
   dwReserved1 As Long
   cFileName As String * MAX_PATH
   cAlternate As String * 14
End Type
 
Public Declare Function FindFirstFile Lib "kernel32" _
   Alias "FindFirstFileA" _
  (ByVal lpFileName As String, _
   lpFindFileData As WIN32_FIND_DATA) As Long
 
Public Declare Function FindClose Lib "kernel32" _
  (ByVal hFindFile As Long) As Long
 
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpclassname As String, ByVal lpwindowname As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias _
  "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
  lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, _
  ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias _
  "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
  lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)
    
'Declare Sub SetWindowPos Lib "user32" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
'Declare Function GetActiveWindow Lib "user32" () As Integer
'Declare Function IsWindow Lib "user32" Alias "IsWindowA" (ByVal hWnd As Integer) As Boolean ' 12/1/97 - changed return data type from string to Boolean
'Declare Function GetCurrentTask Lib "Kernel32" () As Integer
'Declare Sub BringWindowToTop Lib "user32" (ByVal hWnd As Integer)
 
' 10/21/97 - jao - made vars public so clean-up procedure in timer event can read them
' 04/18/03 - bgk - Call #1-9753 v9.2a Crystal 9
'                  Changed variable fieldcount to long from int.
'                  Call #1-9847 v9.2a Crystal 9
'                  Added PrintSetup prior to actual Print dialogue.
 
Public reportname As String
Public pathname As String
Public newshop As String
 
Public startcounter As Long
Public endcounter As Long
Public readline As String
Public linevar As String
Public fieldcount As Long
 
Public vDebug As Boolean
 
Dim crxApplication As New CRAXDRT.Application
Public Report         As CRAXDRT.Report
Public SubReport      As CRAXDRT.Report
 
Public DrillDown As Boolean
Public GoAway As Boolean
 
Public temp As Long
Public tempclip As String
Public titleString As String
Public emptyflag As Boolean
Public BytPic() As Byte
Public BytPic1() As Byte
Public BytPic2() As Byte
Public LngLoop As Long
Public uplimit As Long
Public errfile As String
Public lastpic1 As String
Public lastpic2 As String
Public dbDelayms As Integer
Public previewDelayms As Integer
Public saveDelayms As Integer
Public printDelayms As Integer
Public fileName As String
 
Public vDataStatus As String
Public vSaveFile As String
Public vSendTo As String
 
Public hwndPreviewWindow As Long
 
Public Sub Main()
    'Main block to load data and connect crystal report
 
    vDebug = FileExists(App.Path + "\DebugTabDataXI.txt")
    vDataStatus = ""
    
    If vDebug Then
      DisplayErrorMessage ("In Main Block")
    End If
    
    emptyflag = False
    dbDelayms = 0
    previewDelayms = 0
    saveDelayms = 0
    printDelayms = 0
    
    ' error handling
    On Error GoTo errsub
    
    ' 12/1/97 - add check for an instance of Crystal, abort if so
    
    hwndPreviewWindow = FindWindow(vbNullString, "Encompix Report")
    If hwndPreviewWindow = 0 Then
            ' window not found
    Else
        MsgBox "Error - An Encompix Report is already active on your system." + Chr$(13) + "Please close the report preview window and try this report again.", 4160, "Encompix Report"
        Clipboard.Clear
        Clipboard.SetText "ERROR", vbCFText
        GoTo endproc
    End If
    
    GoAway = False
    
    tempclip = Clipboard.GetText(vbCFText)
    
    ' jao - 10/09/97 - parse pathname from the passed reportname string
    temp = 0
    For temp = Len(tempclip) To 1 Step -1
        If Mid$(tempclip, temp, 1) = "|" Then Exit For
    Next temp
    
    pathname = Mid$(tempclip, 1, temp - 1)
    'reportname = App.Path + "\" + Mid$(tempclip, temp + 1)
    reportname = Mid$(tempclip, temp + 1)
    titleString = Mid$(tempclip, temp + 1)
    
    temp = 0
    For temp = Len(titleString) To 1 Step -1
        If Mid$(titleString, temp, 1) = "\" Then Exit For
    Next temp
    
    'TitleString = "arcust.rpt"
    titleString = Mid$(titleString, temp + 1, Len(titleString))
    If vDebug Then
      DisplayErrorMessage ("Title String = " & titleString)
    End If
    
    newshop = pathname + "shoprpt.mdb"
    
    If vDebug Then
      DisplayErrorMessage ("Access DB Path = " & newshop)
    End If
    
    fileName = pathname + "crystal.ini"
    If vDebug Then
      DisplayErrorMessage ("Crystal INI = " & fileName)
    End If
    
    ' Create table1
    Call LoadTable1
    If vDataStatus = "ERROR" Then
        GoTo endproc
    End If
    
    If vDebug Then
      DisplayErrorMessage ("TABLE1 loaded")
    End If
    
    ' Create table2
    Call LoadTable2
        
    If vDebug Then
      DisplayErrorMessage ("TABLE2 loaded")
    End If
    
    ' Create table3
    Call LoadTable3
 
    If vDebug Then
      DisplayErrorMessage ("TABLE3 loaded")
    End If
    
    ' Create table4
    Call LoadTable4
 
    If vDebug Then
      DisplayErrorMessage ("TABLE4 loaded")
    End If
 
    ' reportname = Trim(LCase(reportname))
    Dim crxDBTable     As CRAXDRT.DatabaseTable
    
    If FileExists(fileName) Then
      If GetFromINI(fileName, "EncompixCrystal", "DBDelay") <> "" Then
        dbDelayms = CInt(GetFromINI(fileName, "EncompixCrystal", "DBDelay"))
      End If
      If GetFromINI(fileName, "EncompixCrystal", "PreviewDelay") <> "" Then
        previewDelayms = CInt(GetFromINI(fileName, "EncompixCrystal", "PreviewDelay"))
      End If
      If GetFromINI(fileName, "EncompixCrystal", "SaveDelay") <> "" Then
        saveDelayms = CInt(GetFromINI(fileName, "EncompixCrystal", "SaveDelay"))
      End If
      If GetFromINI(fileName, "EncompixCrystal", "PrintDelay") <> "" Then
        printDelayms = CInt(GetFromINI(fileName, "EncompixCrystal", "PrintDelay"))
      End If
    End If
    
    If vDebug Then
       DisplayErrorMessage ("Report Path = " & reportname)
    End If
    
    'MsgBox "Report name " & reportname
    Set Report = crxApplication.OpenReport(reportname, 1)
    
    'MsgBox "pathname " & pathname
    For Each crxDBTable In Report.Database.Tables
      crxDBTable.Location = pathname & "shoprpt.mdb"
     
    Next crxDBTable
    
    If dbDelayms <> 0 Then
      Sleep dbDelayms
    End If
    
    Form1.CrRptXI.DisplayGroupTree = False
    Form1.CrRptXI.ReportSource = Report
    Form1.CrRptXI.ViewReport
    
    Report.SetDialogParentWindow (Form1.hWnd)
    Report.ReportTitle = titleString
    
    'Form1.reports.object.Cancel
    'create error condition if Cancel pressed
    'choose direction for printing report
    
    If vDebug Then
       DisplayErrorMessage ("Send To = " & vSendTo)
    End If
    
    Select Case vSendTo
    Case "P" ' send directly to a printer
        If vDebug Then
            DisplayErrorMessage ("Printer block")
        End If
        'Printer setup command prompts for page setup dialog box
        'Report.PrinterSetup Form1.hWnd
        If printDelayms <> 0 Then
          Sleep printDelayms
        End If
        
        Report.SelectPrinter ("FAXmaker", "FAXmaker", "GFIFAX")
        Report.PrintOut True
        CleanUp
        
    Case "S"   ' save as a text file
        If vDebug Then
            DisplayErrorMessage ("Save block")
        End If
    
        If saveDelayms <> 0 Then
          Sleep saveDelayms
        End If
        'savefile = vSaveFile
        Report.ExportOptions.FormatType = crEFTText
        Report.ExportOptions.DestinationType = crEDTDiskFile
        Report.ExportOptions.DiskFileName = vSaveFile
        Report.Export
        CleanUp
    
    Case Else  'preview on screen
        If vDebug Then
            DisplayErrorMessage ("Preview block")
        End If
        If previewDelayms <> 0 Then
          Sleep previewDelayms
        End If
        Form1.Show
        Form1.WindowState = 2
        Form1.Timer1.Enabled = True  ' check every x seconds for window close - end VB routine when closed
      
    End Select
    GoTo endproc
    
errsub:
    
    'If Err = cdlCancel Then End
 
    MsgBox "Error - " + Error(Err) + Chr(10) + "File - " + errfile, 16
    End
    
endproc:
 
End Sub
 
Public Sub CleanUp()
    On Error Resume Next
    
    '    Kill pathname + "table?.txt"
    '    Kill pathname + "shoprpt.*"
    
    End
End Sub
 
Public Sub getstring()
    'Get field data. Each field is separated by TAB
 
    fieldcount = fieldcount + 1
    
    endcounter = InStr(startcounter + 1, readline, Chr$(9))
    
    If endcounter = startcounter + 1 Then
        linevar = ""
    Else
        linevar = Mid$(readline, startcounter + 1, (endcounter - startcounter) - 1)
    End If
    
    'Debug.Print startcounter, endcounter, linevar, fieldcount
    
    
    startcounter = endcounter
 
End Sub
 
Public Sub DisplayErrorMessage(ByVal ipMessage As String)
    'Display error message if debug value is true
    MsgBox ipMessage, vbInformation, "Encompix Debugger"
 
End Sub
 
Public Function GetFromINI(strFile As String, strSection As String, _
            strKey As String) As String
    'Get Key from INI file
    
    Dim strDefault          As String 'Default Return Value if key not present
    Dim strReturn           As String 'Return Value
    Dim lngReturn           As Long   'Length of Return Value
    strDefault = " "
    strReturn = Space$(255)              '<-- Add this line
    lngReturn = GetPrivateProfileString(strSection, strKey, strDefault, _
        strReturn, 255, strFile)
    GetFromINI = Left(strReturn, lngReturn)
End Function
   
 
Public Function FileExists(sSource As String) As Boolean
    'Check if file exists
 
    Dim WFD As WIN32_FIND_DATA
    Dim hFile As Long
    
    hFile = FindFirstFile(sSource, WFD)
    FileExists = hFile <> INVALID_HANDLE_VALUE
    
    Call FindClose(hFile)
   
End Function
 
Public Sub LoadTable1()
    'Load table1 data
 
    Dim rstable1 As Recordset
    
    Set dbReport = Workspaces(0).OpenDatabase(newshop)
    Set rstable1 = dbReport.OpenRecordset("table1", dbOpenDynaset)
    
    Dim removereport As String
    
    Dim InputTable As String
    InputTable = pathname + "table1.txt"
    Open InputTable For Input As #1
            
    If EOF(1) Then
        MsgBox "No data in report.", 4160, "Encompix Report"
        Clipboard.Clear
        Clipboard.SetText "ERROR", vbCFText
        vDataStatus = "ERROR"
        GoTo EndSubLoadTable1
    End If
            
    Do While Not EOF(1)
    
        errfile = Trim(reportname)
        
        Line Input #1, readline
    
        startcounter = 0
        endcounter = 0
            
        rstable1.AddNew
        getstring
        rstable1("t1c1") = linevar
        
        ' check for no data in field 1 only on first pass thru
        If linevar = "" And Not emptyflag Then
            MsgBox "No data in report.", 4160, "Encompix Report"
            Clipboard.Clear
            Clipboard.SetText "ERROR", vbCFText
            vDataStatus = "ERROR"
            GoTo EndSubLoadTable1
        End If
        emptyflag = True
                    
        getstring                           '1
        rstable1("t1c2") = linevar
        getstring                           '2
        rstable1("t1c3") = linevar
        getstring                           '3
        rstable1("t1c4") = linevar
        getstring                           '4
        rstable1("t1c5") = linevar
        getstring                           '5
        rstable1("t1c6") = linevar
        getstring                           '6
        rstable1("t1c7") = linevar
        getstring                           '7
        rstable1("t1c8") = linevar
        getstring                           '8
        rstable1("t1c9") = linevar
        getstring                           '9
        rstable1("t1c10") = linevar
        getstring                           '10
        rstable1("t1c11") = linevar
        getstring                           '11
        rstable1("t1c12") = linevar
        getstring                           '12
        rstable1("t1c13") = linevar
        getstring                           '13
        rstable1("t1c14") = linevar
        getstring                           '14
        rstable1("t1c15") = linevar
        getstring                           '15
        rstable1("t1c16") = linevar
        getstring                           '16
        rstable1("t1c17") = linevar
        getstring                           '17
        rstable1("t1c18") = linevar
        getstring                           '18
        rstable1("t1c19") = linevar
        getstring                           '19
        rstable1("t1c20") = linevar
        getstring                           '10
        rstable1("t1c21") = linevar
        getstring                           '11
        rstable1("t1c22") = linevar
        getstring                           '12
        rstable1("t1c23") = linevar
        getstring                           '13
        rstable1("t1c24") = linevar
        getstring                           '14
        rstable1("t1c25") = linevar
        getstring                           '15
        rstable1("t1c26") = linevar
        getstring                           '16
        rstable1("t1c27") = linevar
        getstring                           '17
        rstable1("t1c28") = linevar
        getstring                           '18
        rstable1("t1c29") = linevar
        getstring                           '19
        rstable1("t1c30") = linevar
        getstring                           '10
        rstable1("t1c31") = linevar
        getstring                           '11
        rstable1("t1c32") = linevar
        getstring                           '12
        rstable1("t1c33") = linevar
        getstring                           '13
        rstable1("t1c34") = linevar
        getstring                           '14
        rstable1("t1c35") = linevar
        getstring                           '15
        rstable1("t1c36") = linevar
        getstring                           '16
        rstable1("t1c37") = linevar
        getstring                           '17
        rstable1("t1c38") = linevar
        getstring                           '18
        rstable1("t1c39") = linevar
        getstring                           '19
        rstable1("t1c40") = linevar
        getstring                           '20
        rstable1("t1d1") = Val(linevar)
        getstring                           '21
        rstable1("t1d2") = Val(linevar)
        getstring                           '22
        rstable1("t1d3") = Val(linevar)
        getstring                           '23
        rstable1("t1d4") = Val(linevar)
        getstring                           '24
        rstable1("t1d5") = Val(linevar)
        getstring                           '25
        rstable1("t1d6") = Val(linevar)
        getstring                           '26
        rstable1("t1d7") = Val(linevar)
        getstring                           '27
        rstable1("t1d8") = Val(linevar)
        getstring                           '28
        rstable1("t1d9") = Val(linevar)
        getstring                           '29
        rstable1("t1d10") = Val(linevar)
        getstring                           '30
        rstable1("t1d11") = Val(linevar)
        getstring                           '31
        rstable1("t1d12") = Val(linevar)
        getstring                           '32
        rstable1("t1d13") = Val(linevar)
        getstring                           '33
        rstable1("t1d14") = Val(linevar)
        getstring                           '34
        rstable1("t1d15") = Val(linevar)
        getstring                           '35
        rstable1("t1d16") = Val(linevar)
        getstring                           '36
        rstable1("t1d17") = Val(linevar)
        getstring                           '37
        rstable1("t1d18") = Val(linevar)
        getstring                           '38
        rstable1("t1d19") = Val(linevar)
        getstring                           '39
        rstable1("t1d20") = Val(linevar)
        getstring                           '40
        If linevar = "no" Then rstable1("t1b1") = False Else rstable1("t1b1") = True
        getstring                           '41
        If linevar = "no" Then rstable1("t1b2") = False Else rstable1("t1b2") = True
        getstring                           '42
        rstable1("t1v1") = linevar
        vSendTo = linevar
        getstring                           '43
        rstable1("t1v2") = linevar
        vSaveFile = linevar
        getstring                           '44
        rstable1("t1v3") = linevar
        getstring                           '45
        rstable1("t1v4") = linevar
        getstring                           '46
        rstable1("t1v5") = linevar
        getstring                           '47
        rstable1("t1v6") = linevar
        getstring                           '48
        rstable1("t1v7") = linevar
        getstring                           '49
        rstable1("t1v8") = linevar
        getstring                           '50
        rstable1("t1v9") = linevar
        getstring                           '51
        rstable1("t1v10") = linevar
        getstring                           '52
        rstable1("t1p1") = linevar
        getstring                           '53
        rstable1("t1p2") = linevar
        getstring                           '54
        rstable1("t1p3") = linevar
        getstring                           '55
        rstable1("t1p4") = linevar
        getstring                           '56
        rstable1("t1p5") = linevar
        getstring                           '57
        rstable1("t1p6") = linevar
        getstring                           '58
        rstable1("t1p7") = linevar
        getstring                           '59
        rstable1("t1p8") = linevar
        getstring                           '60
        rstable1("t1p9") = linevar
        getstring                           '61
        rstable1("t1p10") = linevar
        getstring                           '62
        If linevar <> "" Then
            If lastpic1 <> linevar Then ' if bitmap filename changed, then re-load bitmap from disk
                lastpic1 = linevar
                errfile = linevar
                Open linevar For Binary As #5
                
                If LOF(5) > 65536 Then ' check bitmap for allowed size
                    MsgBox "OLE field is over maximum value of 65536 bytes.", vbOKOnly + vbCritical
                    Clipboard.Clear
                    Clipboard.SetText "ERROR", vbCFText
                    End
                End If
                
                ReDim BytPic1(LOF(5)) ' load OLE object into byte array
                For LngLoop = 0 To UBound(BytPic1)
                    Get #5, , BytPic1(LngLoop)
                Next
            End If
            
            ' load OLE object from memory to access field
            uplimit = UBound(BytPic1)
            If uplimit > 32768 Then ' if OLE object is greater than allowed chunk size of 32k
                    
                    ReDim BytPic(32768) ' first chunk
                    For LngLoop = 0 To 32768
                        BytPic(LngLoop) = BytPic1(LngLoop)
                    Next
                    rstable1("t1ole1").AppendChunk BytPic()
                    
                    ReDim BytPic(uplimit - 32768) ' next chunk
                    For LngLoop = 0 To UBound(BytPic)
                        BytPic(LngLoop) = BytPic1(LngLoop + 32768)
                    Next
                    rstable1("t1ole1").AppendChunk BytPic()
            Else
                    ReDim BytPic(uplimit) ' first chunk
                    For LngLoop = 0 To uplimit
                        BytPic(LngLoop) = BytPic1(LngLoop)
                    Next
                    rstable1("t1ole1").AppendChunk BytPic()
            End If
                
                
            Close #5
        
        End If
        
        getstring                           '63
        If linevar <> "" Then
            If lastpic2 <> linevar Then ' if bitmap filename changed, then re-load bitmap from disk
                lastpic2 = linevar
                errfile = linevar
                Open linevar For Binary As #5
                
                If LOF(5) > 65536 Then ' check bitmap for allowed size
                    MsgBox "OLE field is over maximum value of 65536 bytes.", vbOKOnly + vbCritical
                    Clipboard.Clear
                    Clipboard.SetText "ERROR", vbCFText
                    End
                End If
                
                ReDim BytPic2(LOF(5)) ' load OLE object into byte array
                For LngLoop = 0 To UBound(BytPic2)
                    Get #5, , BytPic2(LngLoop)
                Next
            End If
        
            ' load OLE object from memory to access field
            uplimit = UBound(BytPic2)
            If uplimit > 32768 Then ' if OLE object is greater than allowed chunk size of 32k
                    
                    ReDim BytPic(32768) ' first chunk
                    For LngLoop = 0 To 32768
                        BytPic(LngLoop) = BytPic2(LngLoop)
                    Next
                    rstable1("t1ole2").AppendChunk BytPic()
                    
                    ReDim BytPic(uplimit - 32768) ' next chunk
                    For LngLoop = 0 To UBound(BytPic)
                        BytPic(LngLoop) = BytPic2(LngLoop + 32768)
                    Next
                    rstable1("t1ole2").AppendChunk BytPic()
            Else
                    ReDim BytPic(uplimit) ' first chunk
                    For LngLoop = 0 To uplimit
                        BytPic(LngLoop) = BytPic2(LngLoop)
                    Next
                    rstable1("t1ole2").AppendChunk BytPic()
            End If
                
                
            Close #5
        
        End If
        
        rstable1.Update  ' update record
    
    Loop
 
EndSubLoadTable1:
 
    Close #1
 
End Sub
 
Public Sub LoadTable2()
    'Load table2 data
    Dim rstable2 As Recordset
    
    Set dbReport = Workspaces(0).OpenDatabase(newshop)
    Set rstable2 = dbReport.OpenRecordset("table2", dbOpenDynaset)
        
    InputTable = pathname + "table2.txt"
    Open InputTable For Input As #1
            
    If EOF(1) Then GoTo skip2 ' Skip table 2 generation if file is zero-length
                
    Do While Not EOF(1)
    
    errfile = reportname
    Line Input #1, readline
    
    startcounter = 0
    endcounter = 0
                        
            rstable2.AddNew
            getstring
            rstable2("t2c1") = linevar
            getstring
            rstable2("t2c2") = linevar
            getstring
            rstable2("t2c3") = linevar
            getstring
            rstable2("t2c4") = linevar
            getstring
            rstable2("t2c5") = linevar
            getstring
            rstable2("t2c6") = linevar
            getstring
            rstable2("t2c7") = linevar
            getstring
            rstable2("t2c8") = linevar
            getstring
            rstable2("t2c9") = linevar
            getstring
            rstable2("t2c10") = linevar
            getstring
            rstable2("t2c11") = linevar
            getstring
            rstable2("t2c12") = linevar
            getstring
            rstable2("t2c13") = linevar
            getstring
            rstable2("t2c14") = linevar
            getstring
            rstable2("t2c15") = linevar
            getstring
            rstable2("t2c16") = linevar
            getstring
            rstable2("t2c17") = linevar
            getstring
            rstable2("t2c18") = linevar
            getstring
            rstable2("t2c19") = linevar
            getstring
            rstable2("t2c20") = linevar
            getstring                           '10
            rstable2("t2c21") = linevar
            getstring                           '11
            rstable2("t2c22") = linevar
            getstring                           '12
            rstable2("t2c23") = linevar
            getstring                           '13
            rstable2("t2c24") = linevar
            getstring                           '14
            rstable2("t2c25") = linevar
            getstring                           '15
            rstable2("t2c26") = linevar
            getstring                           '16
            rstable2("t2c27") = linevar
            getstring                           '17
            rstable2("t2c28") = linevar
            getstring                           '18
            rstable2("t2c29") = linevar
            getstring                           '19
            rstable2("t2c30") = linevar
            getstring                           '10
            rstable2("t2c31") = linevar
            getstring                           '11
            rstable2("t2c32") = linevar
            getstring                           '12
            rstable2("t2c33") = linevar
            getstring                           '13
            rstable2("t2c34") = linevar
            getstring                           '14
            rstable2("t2c35") = linevar
            getstring                           '15
            rstable2("t2c36") = linevar
            getstring                           '16
            rstable2("t2c37") = linevar
            getstring                           '17
            rstable2("t2c38") = linevar
            getstring                           '18
            rstable2("t2c39") = linevar
            getstring                           '19
            rstable2("t2c40") = linevar
            getstring
            rstable2("t2d1") = Val(linevar)
            getstring
            rstable2("t2d2") = Val(linevar)
            getstring
            rstable2("t2d3") = Val(linevar)
            getstring
            rstable2("t2d4") = Val(linevar)
            getstring
            rstable2("t2d5") = Val(linevar)
            getstring
            rstable2("t2d6") = Val(linevar)
            getstring
            rstable2("t2d7") = Val(linevar)
            getstring
            rstable2("t2d8") = Val(linevar)
            getstring
            rstable2("t2d9") = Val(linevar)
            getstring
            rstable2("t2d10") = Val(linevar)
            getstring
            rstable2("t2d11") = Val(linevar)
            getstring
            rstable2("t2d12") = Val(linevar)
            getstring
            rstable2("t2d13") = Val(linevar)
            getstring
            rstable2("t2d14") = Val(linevar)
            getstring
            rstable2("t2d15") = Val(linevar)
            getstring
            rstable2("t2d16") = Val(linevar)
            getstring
            rstable2("t2d17") = Val(linevar)
            getstring
            rstable2("t2d18") = Val(linevar)
            getstring
            rstable2("t2d19") = Val(linevar)
            getstring
            rstable2("t2d20") = Val(linevar)
            getstring
            If linevar = "no" Then rstable2("t2b1") = False Else rstable2("t2b1") = True
            getstring
            If linevar = "no" Then rstable2("t2b2") = False Else rstable2("t2b2") = True
            getstring
            rstable2("t2v1") = linevar
            t2v1 = linevar
            getstring
            rstable2("t2v2") = linevar
            getstring
            rstable2("t2v3") = linevar
            getstring
            rstable2("t2v4") = linevar
            getstring
            rstable2("t2v5") = linevar
            getstring
            rstable2("t2v6") = linevar
            getstring
            rstable2("t2v7") = linevar
            getstring
            rstable2("t2v8") = linevar
            getstring
            rstable2("t2v9") = linevar
            getstring
            rstable2("t2v10") = linevar
            getstring
            rstable2("t2p1") = linevar
            getstring
            rstable2("t2p2") = linevar
            getstring
            rstable2("t2p3") = linevar
            getstring
            rstable2("t2p4") = linevar
            getstring
            rstable2("t2p5") = linevar
            getstring
            rstable2("t2p6") = linevar
            getstring
            rstable2("t2p7") = linevar
            getstring
            rstable2("t2p8") = linevar
            getstring
            rstable2("t2p9") = linevar
            getstring
            rstable2("t2p10") = linevar
            rstable2.Update
    Loop
    
skip2:
    Close #1
    
End Sub
 
Public Sub LoadTable3()
    'Load table3 data
 
    Dim rstable3 As Recordset
    
    Set dbReport = Workspaces(0).OpenDatabase(newshop)
    Set rstable3 = dbReport.OpenRecordset("table3", dbOpenDynaset)
        
    InputTable = pathname + "table3.txt"
    Open InputTable For Input As #1
            
    If EOF(1) Then GoTo skip3 ' Skip table 3 generation if file is zero-length
                
    Do While Not EOF(1)
    
    errfile = reportname
    Line Input #1, readline
    
    startcounter = 0
    endcounter = 0
                        
            rstable3.AddNew
            getstring
            rstable3("t3c1") = linevar
            getstring
            rstable3("t3c2") = linevar
            getstring
            rstable3("t3c3") = linevar
            getstring
            rstable3("t3c4") = linevar
            getstring
            rstable3("t3c5") = linevar
            getstring
            rstable3("t3c6") = linevar
            getstring
            rstable3("t3c7") = linevar
            getstring
            rstable3("t3c8") = linevar
            getstring
            rstable3("t3c9") = linevar
            getstring
            rstable3("t3c10") = linevar
            getstring
            rstable3("t3c11") = linevar
            getstring
            rstable3("t3c12") = linevar
            getstring
            rstable3("t3c13") = linevar
            getstring
            rstable3("t3c14") = linevar
            getstring
            rstable3("t3c15") = linevar
            getstring
            rstable3("t3c16") = linevar
            getstring
            rstable3("t3c17") = linevar
            getstring
            rstable3("t3c18") = linevar
            getstring
            rstable3("t3c19") = linevar
            getstring
            rstable3("t3c20") = linevar
            getstring                           '10
            rstable3("t3c21") = linevar
            getstring                           '11
            rstable3("t3c22") = linevar
            getstring                           '12
            rstable3("t3c23") = linevar
            getstring                           '13
            rstable3("t3c24") = linevar
            getstring                           '14
            rstable3("t3c25") = linevar
            getstring                           '15
            rstable3("t3c26") = linevar
            getstring                           '16
            rstable3("t3c27") = linevar
            getstring                           '17
            rstable3("t3c28") = linevar
            getstring                           '18
            rstable3("t3c29") = linevar
            getstring                           '19
            rstable3("t3c30") = linevar
            getstring                           '10
            rstable3("t3c31") = linevar
            getstring                           '11
            rstable3("t3c32") = linevar
            getstring                           '12
            rstable3("t3c33") = linevar
            getstring                           '13
            rstable3("t3c34") = linevar
            getstring                           '14
            rstable3("t3c35") = linevar
            getstring                           '15
            rstable3("t3c36") = linevar
            getstring                           '16
            rstable3("t3c37") = linevar
            getstring                           '17
            rstable3("t3c38") = linevar
            getstring                           '18
            rstable3("t3c39") = linevar
            getstring                           '19
            rstable3("t3c40") = linevar
            getstring
            rstable3("t3d1") = Val(linevar)
            getstring
            rstable3("t3d2") = Val(linevar)
            getstring
            rstable3("t3d3") = Val(linevar)
            getstring
            rstable3("t3d4") = Val(linevar)
            getstring
            rstable3("t3d5") = Val(linevar)
            getstring
            rstable3("t3d6") = Val(linevar)
            getstring
            rstable3("t3d7") = Val(linevar)
            getstring
            rstable3("t3d8") = Val(linevar)
            getstring
            rstable3("t3d9") = Val(linevar)
            getstring
            rstable3("t3d10") = Val(linevar)
            getstring
            rstable3("t3d11") = Val(linevar)
            getstring
            rstable3("t3d12") = Val(linevar)
            getstring
            rstable3("t3d13") = Val(linevar)
            getstring
            rstable3("t3d14") = Val(linevar)
            getstring
            rstable3("t3d15") = Val(linevar)
            getstring
            rstable3("t3d16") = Val(linevar)
            getstring
            rstable3("t3d17") = Val(linevar)
            getstring
            rstable3("t3d18") = Val(linevar)
            getstring
            rstable3("t3d19") = Val(linevar)
            getstring
            rstable3("t3d20") = Val(linevar)
            getstring
            If linevar = "no" Then rstable3("t3b1") = False Else rstable3("t3b1") = True
            getstring
            If linevar = "no" Then rstable3("t3b2") = False Else rstable3("t3b2") = True
            getstring
            rstable3("t3v1") = linevar
            t3v1 = linevar
            getstring
            rstable3("t3v2") = linevar
            getstring
            rstable3("t3v3") = linevar
            getstring
            rstable3("t3v4") = linevar
            getstring
            rstable3("t3v5") = linevar
            getstring
            rstable3("t3v6") = linevar
            getstring
            rstable3("t3v7") = linevar
            getstring
            rstable3("t3v8") = linevar
            getstring
            rstable3("t3v9") = linevar
            getstring
            rstable3("t3v10") = linevar
            getstring
            rstable3("t3p1") = linevar
            getstring
            rstable3("t3p2") = linevar
            getstring
            rstable3("t3p3") = linevar
            getstring
            rstable3("t3p4") = linevar
            getstring
            rstable3("t3p5") = linevar
            getstring
            rstable3("t3p6") = linevar
            getstring
            rstable3("t3p7") = linevar
            getstring
            rstable3("t3p8") = linevar
            getstring
            rstable3("t3p9") = linevar
            getstring
            rstable3("t3p10") = linevar
            rstable3.Update
    Loop
    
skip3:
 
    Close #1
 
End Sub
 
Public Sub LoadTable4()
    'Load table4 data
 
    Dim rstable4 As Recordset
    
    Set dbReport = Workspaces(0).OpenDatabase(newshop)
    Set rstable4 = dbReport.OpenRecordset("table4", dbOpenDynaset)
        
    InputTable = pathname + "table4.txt"
    Open InputTable For Input As #1
            
    If EOF(1) Then GoTo skip4 ' Skip table 4 generation if file is zero-length
                
    Do While Not EOF(1)
    
    errfile = reportname
    Line Input #1, readline
    
    startcounter = 0
    endcounter = 0
                        
            rstable4.AddNew
            getstring
            rstable4("t4c1") = linevar
            getstring
            rstable4("t4c2") = linevar
            getstring
            rstable4("t4c3") = linevar
            getstring
            rstable4("t4c4") = linevar
            getstring
            rstable4("t4c5") = linevar
            getstring
            rstable4("t4c6") = linevar
            getstring
            rstable4("t4c7") = linevar
            getstring
            rstable4("t4c8") = linevar
            getstring
            rstable4("t4c9") = linevar
            getstring
            rstable4("t4c10") = linevar
            getstring
            rstable4("t4c11") = linevar
            getstring
            rstable4("t4c12") = linevar
            getstring
            rstable4("t4c13") = linevar
            getstring
            rstable4("t4c14") = linevar
            getstring
            rstable4("t4c15") = linevar
            getstring
            rstable4("t4c16") = linevar
            getstring
            rstable4("t4c17") = linevar
            getstring
            rstable4("t4c18") = linevar
            getstring
            rstable4("t4c19") = linevar
            getstring
            rstable4("t4c20") = linevar
            getstring                           '10
            rstable4("t4c21") = linevar
            getstring                           '11
            rstable4("t4c22") = linevar
            getstring                           '12
            rstable4("t4c23") = linevar
            getstring                           '13
            rstable4("t4c24") = linevar
            getstring                           '14
            rstable4("t4c25") = linevar
            getstring                           '15
            rstable4("t4c26") = linevar
            getstring                           '16
            rstable4("t4c27") = linevar
            getstring                           '17
            rstable4("t4c28") = linevar
            getstring                           '18
            rstable4("t4c29") = linevar
            getstring                           '19
            rstable4("t4c30") = linevar
            getstring                           '10
            rstable4("t4c31") = linevar
            getstring                           '11
            rstable4("t4c32") = linevar
            getstring                           '12
            rstable4("t4c33") = linevar
            getstring                           '13
            rstable4("t4c34") = linevar
            getstring                           '14
            rstable4("t4c35") = linevar
            getstring                           '15
            rstable4("t4c36") = linevar
            getstring                           '16
            rstable4("t4c37") = linevar
            getstring                           '17
            rstable4("t4c38") = linevar
            getstring                           '18
            rstable4("t4c39") = linevar
            getstring                           '19
            rstable4("t4c40") = linevar
            getstring
            rstable4("t4d1") = Val(linevar)
            getstring
            rstable4("t4d2") = Val(linevar)
            getstring
            rstable4("t4d3") = Val(linevar)
            getstring
            rstable4("t4d4") = Val(linevar)
            getstring
            rstable4("t4d5") = Val(linevar)
            getstring
            rstable4("t4d6") = Val(linevar)
            getstring
            rstable4("t4d7") = Val(linevar)
            getstring
            rstable4("t4d8") = Val(linevar)
            getstring
            rstable4("t4d9") = Val(linevar)
            getstring
            rstable4("t4d10") = Val(linevar)
            getstring
            rstable4("t4d11") = Val(linevar)
            getstring
            rstable4("t4d12") = Val(linevar)
            getstring
            rstable4("t4d13") = Val(linevar)
            getstring
            rstable4("t4d14") = Val(linevar)
            getstring
            rstable4("t4d15") = Val(linevar)
            getstring
            rstable4("t4d16") = Val(linevar)
            getstring
            rstable4("t4d17") = Val(linevar)
            getstring
            rstable4("t4d18") = Val(linevar)
            getstring
            rstable4("t4d19") = Val(linevar)
            getstring
            rstable4("t4d20") = Val(linevar)
            getstring
            If linevar = "no" Then rstable4("t4b1") = False Else rstable4("t4b1") = True
            getstring
            If linevar = "no" Then rstable4("t4b2") = False Else rstable4("t4b2") = True
            getstring
            rstable4("t4v1") = linevar
            t4v1 = linevar
            getstring
            rstable4("t4v2") = linevar
            getstring
            rstable4("t4v3") = linevar
            getstring
            rstable4("t4v4") = linevar
            getstring
            rstable4("t4v5") = linevar
            getstring
            rstable4("t4v6") = linevar
            getstring
            rstable4("t4v7") = linevar
            getstring
            rstable4("t4v8") = linevar
            getstring
            rstable4("t4v9") = linevar
            getstring
            rstable4("t4v10") = linevar
            getstring
            rstable4("t4p1") = linevar
            getstring
            rstable4("t4p2") = linevar
            getstring
            rstable4("t4p3") = linevar
            getstring
            rstable4("t4p4") = linevar
            getstring
            rstable4("t4p5") = linevar
            getstring
            rstable4("t4p6") = linevar
            getstring
            rstable4("t4p7") = linevar
            getstring
            rstable4("t4p8") = linevar
            getstring
            rstable4("t4p9") = linevar
            getstring
            rstable4("t4p10") = linevar
            rstable4.Update
    Loop
 
skip4:
    
        Close #1
 
End Sub
[+][-]10.03.2008 at 01:09PM PDT, ID: 22637590

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 14-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]10.03.2008 at 01:15PM PDT, ID: 22637623

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 14-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]10.03.2008 at 01:18PM PDT, ID: 22637657

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 14-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]10.03.2008 at 01:27PM PDT, ID: 22637721

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 14-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]10.03.2008 at 01:29PM PDT, ID: 22637744

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 14-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]10.03.2008 at 01:30PM PDT, ID: 22637747

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 14-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]10.03.2008 at 02:17PM PDT, ID: 22638163

Experts Exchange has a courteous staff of administrators who help members get the most out of the website by means of administrative comments like this one.

Start your 14-day free trial to view this Administrative Comment or ask the Experts your question.

 
 
Loading Advertisement...
20081112-EE-VQP-43 / EE_QW_2_20070628