Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Печать таблицы GridVier / 25 сообщений из 53, страница 1 из 3
03.06.2015, 10:42
    #38974963
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Здравствуйте! Подскажите, пожалуйста, как вывести на печать таблицу gridvier с сайта, разработанного в Visual Studio на VB?
...
Рейтинг: 0 / 0
03.06.2015, 11:03
    #38974994
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Elenochkakarp,

..насколько я помню - волшебной кнопки "Напечатать грид" не предусмотрено ... Либо форматируйте специальную страницу (или скрытый div) специально для печати (без кнопок и т.д.), либо используйте iTextSharp для формирования файла PDF, который можно и распечатать и по почте послать или еще как ...
...
Рейтинг: 0 / 0
03.06.2015, 11:24
    #38975024
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik,может поможете, как экспортировать тогда таблицу GridVier в Word? Я в этом совсем ничего не понимаю((
...
Рейтинг: 0 / 0
03.06.2015, 11:52
    #38975078
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Elenochkakarpcarrotik,может поможете, как экспортировать тогда таблицу GridVier в Word? Я в этом совсем ничего не понимаю((

... если ничего не понимаете, то будет сложно .. :) .. может, почитаете для начала что-нибудь ... но в Word не в Word, а в Excel можно экспортировать по-бедному/быстрому примерно вот так:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Protected Sub ExportGrid()
        Dim RandomClass As New Random()
        Dim RandomNumber As Integer
        RandomNumber = RandomClass.Next(100, 1000)
        Dim strMeta As String

        Response.ClearContent()
        Response.AddHeader("content-disposition", "attachment;filename=mygrid" + RandomNumber.ToString + ".xls")
        Response.AddHeader("Content-Type", "text/html; charset=ISO-8859-5")
        Response.Charset = "ISO-8859-5"
        Response.Cache.SetCacheability(HttpCacheability.NoCache)
        Response.ContentType = "application/vnd.ms-excel"
        ' Ниже подставьте имя вашего грида вместо MyDataGrid
        MyDataGrid.Style.Add("background-color", "white")
        Dim stringWrite = New System.IO.StringWriter()
        Dim htmlWrite = New HtmlTextWriter(stringWrite)
        
        'И тут тоже
        MyDataGrid.RenderControl(htmlWrite)
        Dim strHtmlStart As String = "<!DOCTYPE html><html><head>"
        strMeta = "<meta http-equiv=" & Chr(39) & "Content-Type" & Chr(39) & " content=" & Chr(39) & "text/html; charset=utf-8" & Chr(39) & "></head><div>"
        Response.Write(strHtmlStart & strMeta & "<body>" & stringWrite.ToString() & "</body></html>")
        Response.End()
    End Sub



...этот код под кнопку на странице "Экспорт в Excel", например ... Хотя HTML можно и в Ворд передать ....
...
Рейтинг: 0 / 0
03.06.2015, 12:03
    #38975096
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik,

Мммм((( где посмотреть результат? При нажатии на кнопку ничего не произошло
...
Рейтинг: 0 / 0
03.06.2015, 12:05
    #38975102
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik,подскажите как в ворд, или exel давайте добъем)))☺️
...
Рейтинг: 0 / 0
03.06.2015, 12:13
    #38975114
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Elenochkakarp,

... результат должен быть в папке "загрузки" (или куда ваш браузер по умолчанию сохраняет загружаемые файлы) в виде файла mygrid1238.xls или как-то так ... если ничего не происходит - ну, тогда не знаю ... :)
...
Рейтинг: 0 / 0
03.06.2015, 12:17
    #38975120
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
...разметка кнопки у вас какая? .. должно быть что-то типа такого
Код: html
1.
<asp:Button ID="ExportEx" Text="Excel" OnClick="ExportGrid" runat="server" />
...
Рейтинг: 0 / 0
03.06.2015, 12:21
    #38975130
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik, <asp:Button ID="Button224" runat="server" Text="Exel" OnClic="Button224"/>
...
Рейтинг: 0 / 0
03.06.2015, 12:23
    #38975132
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Elenochkakarp, УПС)) <asp:Button ID="Button224" runat="server" Text="Exel" OnClick="Button224"/>
...
Рейтинг: 0 / 0
03.06.2015, 12:30
    #38975152
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
ElenochkakarpElenochkakarp, УПС)) <asp:Button ID="Button224" runat="server" Text="Exel" OnClick="Button224"/>

..OnClick - это и есть та ненавязчивая команда, которая выполняется при шлёпании хвостом мышки по кнопке ... т.е. там должно быть написано "ExportGrid", если вы скопипастили мой код без изменения ... :)
...
Рейтинг: 0 / 0
03.06.2015, 12:37
    #38975162
Axeleron
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik,
В общем уже два треда об одном и том же - все ради спасения студенточки
...
Рейтинг: 0 / 0
03.06.2015, 12:40
    #38975169
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Axeleroncarrotik,
В общем уже два треда об одном и том же - все ради спасения студенточки

....скучно, сэр ... :)
...
Рейтинг: 0 / 0
03.06.2015, 12:40
    #38975170
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik, ошибка сервера в приложении <asp:Button ID="ExportGrid" runat="server" Text="Button" OnClick="ExportGrid"/>
вот мой код

Protected Sub ExportGrid(sender As Object, e As EventArgs)
Dim RandomClass As New Random()
Dim RandomNumber As Integer
RandomNumber = RandomClass.Next(100, 1000)
Dim strMeta As String

Response.ClearContent()
Response.AddHeader("content-disposition", "attachment;filename=mygrid" + RandomNumber.ToString + ".xls")
Response.AddHeader("Content-Type", "text/html; charset=ISO-8859-5")
Response.Charset = "ISO-8859-5"
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.ContentType = "application/vnd.ms-excel"
' Ниже подставьте имя вашего грида вместо MyDataGrid
MyDataGrid7.Style.Add("background-color", "white")
Dim stringWrite = New System.IO.StringWriter()
Dim htmlWrite = New HtmlTextWriter(stringWrite)

'И тут тоже
MyDataGrid7.RenderControl(htmlWrite)
Dim strHtmlStart As String = "<!DOCTYPE html><html><head>"
strMeta = "<meta http-equiv=" & Chr(39) & "Content-Type" & Chr(39) & " content=" & Chr(39) & "text/html; charset=utf-8" & Chr(39) & "></head><div>"
Response.Write(strHtmlStart & strMeta & "<body>" & stringWrite.ToString() & "</body></html>")
Response.End()
End Sub
...
Рейтинг: 0 / 0
03.06.2015, 12:43
    #38975173
Axeleron
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotikAxeleroncarrotik,
В общем уже два треда об одном и том же - все ради спасения студенточки

....скучно, сэр ... :)
Почему? Весна же! То есть уже лето... Можно предложить объяснить все в приватной обстановке, потому что на форуме... ну невозможно тут все объяснить...
...
Рейтинг: 0 / 0
03.06.2015, 12:45
    #38975175
carrotik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Elenochkakarp,

... еще бы и текст ошибки ... но скорее всего у вас нет в начале той простыни, которая называется something.apsx.vb импорта библиотек
Imports System.IO
...
Рейтинг: 0 / 0
03.06.2015, 12:46
    #38975176
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Axeleron, я вас прошу, умоляю))) что не так)))

<asp:Button ID="Button225" runat="server" Text="fghgfhfg" OnClick1="Button225"/>

Protected Sub Button225_OnClick1(sender As Object, e As EventArgs)
GridView7.PagerSettings.Visible = False
GridView7.DataBind()
Dim sw As New StringWriter()
Dim hw As New HtmlTextWriter(sw)
GridView7.RenderControl(hw)
Dim gridHTML As String = sw.ToString().Replace("""", "'") _
.Replace(System.Environment.NewLine, "")
Dim sb As New StringBuilder()
sb.Append("<script type = 'text/javascript'>")
sb.Append("window.onload = new function(){")
sb.Append("var printWin = window.open('', '', 'left=0")
sb.Append(",top=0,width=1000,height=600,status=0');")
sb.Append("printWin.document.write(""")
sb.Append(gridHTML)
sb.Append(""");")
sb.Append("printWin.document.close();")
sb.Append("printWin.focus();")
sb.Append("printWin.print();")
sb.Append("printWin.close();};")
sb.Append("</script>")
ClientScript.RegisterStartupScript(Me.GetType(), "GridPrint", sb.ToString())
GridView7.PagerSettings.Visible = True
GridView7.DataBind()
End Sub
...
Рейтинг: 0 / 0
03.06.2015, 12:49
    #38975181
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
carrotik, и что мне делать??? ну не бросайте меня(((
...
Рейтинг: 0 / 0
03.06.2015, 12:53
    #38975185
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Elenochkakarp,
Уважайте отвечающих - оформляйте свой код, вам же отвечают с оформлением кода.
...
Рейтинг: 0 / 0
03.06.2015, 12:55
    #38975191
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Shocker.Pro, я только вчера зарегистрировалась, я еще не совсем разобралась(( простите((
...
Рейтинг: 0 / 0
03.06.2015, 12:58
    #38975198
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Спасибо, ребята, за помощь!((
...
Рейтинг: 0 / 0
03.06.2015, 13:02
    #38975209
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
ElenochkakarpShocker.Pro, я только вчера зарегистрировалась, я еще не совсем разобралась(( простите((можно было просто нажать "цитировать" и посмотреть, как оформлено (как и в любом другом форуме). А тут FAQ
...
Рейтинг: 0 / 0
03.06.2015, 13:09
    #38975219
Elenochkakarp
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
Shocker.ProElenochkakarpShocker.Pro, я только вчера зарегистрировалась, я еще не совсем разобралась(( простите((можно было просто нажать "цитировать" и посмотреть, как оформлено (как и в любом другом форуме). А тут FAQ
Я попросила прощение у ребят, не вижу смысла больше об этом разговаривать!!!!
...
Рейтинг: 0 / 0
03.06.2015, 13:10
    #38975220
Axeleron
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
ElenochkakarpAxeleron, я вас прошу, умоляю))) что не так)))

Код: vbnet
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.
<asp:Button ID="Button225" runat="server" Text="fghgfhfg"  OnClick1="Button225"/>

Protected Sub Button225_OnClick1(sender As Object, e As EventArgs)
        GridView7.PagerSettings.Visible = False
        GridView7.DataBind()
        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)
        GridView7.RenderControl(hw)
        Dim gridHTML As String = sw.ToString().Replace("""", "'") _
           .Replace(System.Environment.NewLine, "")
        Dim sb As New StringBuilder()
        sb.Append("<script type = 'text/javascript'>")
        sb.Append("window.onload = new function(){")
        sb.Append("var printWin = window.open('', '', 'left=0")
        sb.Append(",top=0,width=1000,height=600,status=0');")
        sb.Append("printWin.document.write(""")
        sb.Append(gridHTML)
        sb.Append(""");")
        sb.Append("printWin.document.close();")
        sb.Append("printWin.focus();")
        sb.Append("printWin.print();")
        sb.Append("printWin.close();};")
        sb.Append("</script>")
        ClientScript.RegisterStartupScript(Me.GetType(), "GridPrint", sb.ToString())
        GridView7.PagerSettings.Visible = True
        GridView7.DataBind()
    End Sub





Подумайте теперь сами.
...
Рейтинг: 0 / 0
03.06.2015, 13:11
    #38975221
Axeleron
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Печать таблицы GridVier
ElenochkakarpЯ попросила прощение у ребят, не вижу смысла больше об этом разговаривать!!!!
И спокойнее, не хамите.
...
Рейтинг: 0 / 0
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Печать таблицы GridVier / 25 сообщений из 53, страница 1 из 3
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]